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ABSTRACT 


Information is a critical resource in today’s enterprises. 
Whether they are industrial, commercial, educational, or 
Military, these organizations maintain an ever increasing 
amount of information in databases. Ensuring the accuracy of 
information in a database is paramount to the organizations 
that maintain these databases. Many decisions are made from 
the information extracted from the database, and incorrect 
data will lead to incorrect decision making. 

This thesis examines the feasibility of using expert 
systems for enforcing semantic integrity constraints to 
relational databases. To accomplish this goal, the thesis 
develops a classification for semantic integrity constraints, 
applies it to develop rules for the Navy’s Naval Aircraft 
Flight Record application, and builds a front end expert 
system to enforce these rules dynamically. The expert system 
enforces integrity rules for all maintenance operations 
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I. INTRODUCTION 


A. BACKGROUND 

Semantic integrity is concerned with ensuring that the 
database is always in a correct state even though some users 
Or application programs may attempt to change it to an 
incorrect state. Enforcing semantic integrity means shielding 
the database against invalid UPDATES, INSERTS, and DELETIONS. 
Traditionally, most integrity checks are performed by 
application programs or by periodic auditing of the database. 
Problems of relying on application programs for integrity 
checks include: 

e Application programs that modify the database could 
corrupt the whole database. That is, integrity checking is 
likely to be incomplete because the application programmer 
may not be aware of the semantics of the complete 


database. 


e The criteria for integrity are buried in procedures and 
are therefore hard to understand and control. 


° Code to enforce the same integrity constraints occurs in 
any number of applications; therefore inconsistencies 
could be introduced easily. 

Problems of these types could be detected through the use 
miperlodic auditing® Periodic auditing, omethe other hand, 
causes problems because of the time lag in detecting errors. 


These problems include: 


¢ There is considerable difficulty in tracing the source of 
an error and correcting it. 


¢ The incorrect data may have been used to propagate other 
errors within the database and ultimately lead to 
incorrect decisions based on incorrect data. 
Thus the prevention of inaccurate data into the database 
rather than the repair of the database once the damage has 
occurred is the preferred method. The enforcement of these 
integrity rules should be the responsibility of the DBMS, but 
DBMS vendors have failed to provide adequate integrity 
features to ensure accurate data within the database. [Ref. 1: 


p.109] 


B. OBJECTIVES 

This thesis suggests the use of a front-end expert system 
to enforce semantic integrity features. This expert system 
would oversee the update, insertion, and deletion operations, 
monitoring for violations of integrity rules. Once a violation 
had been identified, the system would take an appropriate 
action. This appropriate action would mean rejecting the 
operation and reporting the violation. 

To understand how this will be accomplished, consider 
Figure 1. The expert system has a set of integrity rules that 
define what errors will be checked. These rules are stored in 
a knowledge base, which the inference engine of the expert 
system uses to enforce database integrity. The major advantage 
of this approach is that the validation of all data is handled 


by the expert system, instead of being left to the user or the 


application program. Another important advantage is that all 
the integrity rules are located in the expert system’s 
knowledge base. With the knowledge base acting as a central 
library, each integrity rule is easily queried and can be 


changed as needed. 


EXPERT SYSTEM 
Inference Engine 





Figure 1.1 Front End Expert System 


C. RESEARCH QUESTIONS 

The Navy, through the use of the Naval Aircraft Flight 
Record, collects data for the Individual Flight Activity 
Reporting System(IFARS). The IFARS is a data bank for 
information that the Navy uses for safety analysis, budget 
m@etitfication of hours flown, and pilot compliance of 
established minimum standards. Diewacecuncecmecllection of 


data enables Naval Aviation to justify its existence while 


providing the means to make it inherently less dangerous. The 
following research questions will be addressed: 
e What are the integrity constraints to be enforced by a 
front end expert system based on the Navy’s Naval Aircraft 
Flight Record, OPNAV 3710/4 and how will these constraints 
be classified? 
¢ What is the feasibility of using an expert system as a 
front end in developing and enforcing these integrity 
constraints in a relational database application such as 
the Navy’s Naval Aircraft Flight Record? 
D. SCOPE 

This thesis develops a semantic integrity front end expert 
system that monitors maintenance operations to a relational 
database developed for the Navy’s Naval Aircraft Flight 
Record. It will address the issue of classification of 
integrity constraints to provide a structure for the knowledge 
base. It will also design a relational database representative 
of the way the user perceives the data on the Naval Aircraft 
Flight Record. Lastly it will design and implement a prototype 
front end expert system to enforce the integrity constraints 
developed, and maintain semantic integrity on the database. 
This prototype will be limited in its’ ability to capture all 
data required by the Naval Aircraft Flight Record. It was not 
feasible to include all data or integrity constraints related 


to the data in the Naval Aircraft Flight Record due to tne 


time constraint OM this enesoice 


E. ORGANIZATION OF THE STUDY 

The thesis is organized as follows. Chapter II provides a 
classification of the integrity constraints that need to be 
incorporated into the expert system. Chapter III addresses the 
design of the relational database for the Naval Aircraft 
Flight Record application and describes the integrity rules 
that need to be enforced for this application. Chapter IV 
describes the design and construction of the front end expert 
system. Chapter V presents the conclusions of the research, as 
well as the benefits, limitations, and weaknesses of uSing a 


front end expert system. 


II. CLASSIFICATION OF INTEGRITY CONSTRAINTS 


An important goal of any database system is to model the 
real world accurately, and in a manner consistent with the 
user’s perception of the data. The relational database model 
is based on the abstraction that data is stored in two- 
dimensional tables called relations. Each row in the table 
represents a tuple and each column represents an attribute. 
The entire table is equivalent to a file with all the 
properties of that relation. One of the fundamental principles 
of the relational database model is that relationships among 
distinct relations are captured through common values. Certain 
restrictions must be imposed on these relations to insure the 
integrity of the data within the database and allow for 
meaningful comparisons. The following is a list of integrity 
constraints that must be incorporated into the relational 
database model to guarantee these meaningful comparisons [Ref. 
EN 
Domain Integrity Constraints 
Column Integrity Constraints 
Entity Integrity Gonstraimes 


Referential Integrity Constraints 
User-Defined Integrity Constraints 


Each type of constraint is detailed in the following sections. 


A. Domain Integrity Constraints 
The domain is the fundamental concept of the relational 
database model. The domain is the set of all possible values 
an attribute can have. It includes a physical description of: 
e the data type 


e range of values permitted for all columns within that 
domain 


e allowable comparison operators (e.g., greater than (>) 
and less than (<)) 


and a semantic description (the function or purpose of the 
variable). A pair of values can be meaningfully compared, if 
and only if these values are drawn from a common domain. 


Consider the Naval Aircraft Flight Record in Figure 2.1. 


DOC# Document Number 
SIDE# Aircraft Side Number 
EXCD Exception Code 

BUNO# Aircraft Serial Number 
ORG Organization Code 
MSN1 Mission Code 

HRS1 Mission Hours 

TOLELT Total Flights 

ENG1 Engine 1 Hours 

ENG2 Engine 2 Hours 

ENG3 Engine 3 Hours 

ENG4 Engine 4 Hours 


DOC _EXCD SIDE BUNO ORG MSN1 HRS1 TOTFLT ENG1 ENG2 ENG3 ENG4 
so CC Ois2 192942 VPS JAZ s1GAZ O01 6.4. 10;2 a2 68.4 





Figure 2.1 Domain Integrity Constraint 


If both SIDE# and TOTFLT were declared to be numeric data 
type, a query to list all aircraft by SIDE#, where TOTFLT is 
greater than SIDE# would be a valid query. A query of this 


type would produce as much meaningful information as comparing 


apples to oranges. Enforcing domain constraints ensures that 
two fields being compared not only have the same data types 
but also are semantically comparable. This feature safeguards 
users from meaningless information which could result from 
comparisons of values from different domains. Although special 
cases do arise that require the comparison of different 
domains, these should be exceptions and handled as such. 

The use of domain constraints results in an integrated 
relational database[Ref. 2:p.45]. An advantage of this 
integration 1s logical value-comparisons. As can be imagined, 
the domain concept is fundamental to the support of each of 
the other integrity constraints that are mentioned. Domain 
constraints are what hold the relational database together and 
allow it to model the real world accurately and in conjunction 
with the user’s way of thinking. 

Today’s DBMSs unfortunately do not Support the domain 
concept. What they do support is basic data types(e.g., 
character, integer, float, calendar date, and clock times) and 


the ability to define certain ranges on these data types. 


B. Column Integrity Constraints 

Column integrity constraints are a natural extension of 
the domain concept. If the relational database supports the 
domain concept, then it should be capable of declaring in 
which domain the column belongs(inheriting the physical and 


semantic constraints associated with that domain), and any 


additional constraints that are to apply to the columns. Each 
column name then becomes a combination of a role name and a 
domain name, where the role name designates the purpose of the 
column’s use in a specified domain. The advantages are as 
follows: 
¢« The description of every column that belongs to a given 
domain need only be declared once in the domain 
declaration. 
e Because a given domain need only be declared once, the 
valid state of the database is ensured in future updates 
EO ™IMtegrity constraints: 
e Support for ensuring database values are semantically 
comparable by checking to see if the columns belong to a 


common domain. 


¢* Column integrity constraints are facilitated. 


The last advantage is very important. If the relational 
database supports the domain concept, it has the ability to 
detect column integrity violations. Therefore, users can 
depend on the relational database to determine whether values 
in two different columns are semantically comparable. 

Column integrity constraints may include the following: 


* An added range constraint that provides a more confined 
range than in the domain declaration 


e If missing values are allowed within a column 
e Whether values must be distinct from each other within the 
column (primary keys) 
Consider once again the Naval Aircraft Flight Record in Figure 
2.1. HRS1, ENG1, ENG2, ENG3, and ENG4 belong to the same 


domain called Hours. The domain data type is a float type with 


one decimal place. The range of values allowed is only 
positive. Negative values are not feasible. The column 
constraints for both HRS1 and ENG# are more restricted in that 
the range of values allowed is only between 00.1 to 72.0. 
Missing values are not allowed within the columns as long as 
the Exception Code is not X. ENG# value must be equal to or 
less than HRS1. This condition is specified to allow for 
engines that are shut down during a flight. Although some of 
these constraints within the example deal with other classes 
of integrity constraints, the basic idea of column integrity 


Can be seen. 


C. Entity Integrity Constraints 

In order to understand Entity Integrity and Referential 
Integrity, it is important to discuss primary and foreign 
keys. Each row of a particular table in a relational database 
contains a column which contains primary-key values that 
uniquely identify and distinguish that row from every other 
row in that table. The primary-key can be composite and formed 
from more than one column. Everywhere else in the database 
that there is a need to refer to that unique row, the same 
value from the same domain is used but is referred to as a 
foreign-key value. The column that the foreign-key value is 
taken from is called the foreign key. 

Entity Integrity implies that no component of a primary 


key 1s allowed to have a missing value. The primary-key in the 
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relational database model is a compulsory feature. An example 
of this is shown in Figure 2.2. The primary-key Document 
Number is missing from both records which is a violation of 
the Entity Integrity rule since it creates unidentified 
objects within the database. From Figure 2.3 we can see that 
duplicate primary-key values are prohibited, because of 
basically the same consequences (loss of identity). 

Also, no component of a foreign key is allowed to be 
missing and inapplicable as opposed to missing and applicable. 
This case requires additional attention in that Side Number 


must adhere to referential integrity. 


DOC _EXCD SIDE BUNO ORG MSN1 HRS1 TOTFLT ENG] ENG2 ENG3 ENG4 
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Figure 2.2 Entity Integrity Constraint (Missing) 


DOC _EXCD SIDE BUNO ORG MSN1 SRS1 TOTFLT ENGI ENG2 ENG3 ENG4 
mol 6C (isZeto2z942 VPS TAZ 10.2 O01 O24) lOn2- 10.2 107.2 


ool. Cc 052 152942 VP5 1A2 Cees 01 lO Or ee Ore 9), 3 





Figure 2.3 Entity Integrity Constraint (Duplicate) 


D. Referential Integrity Constraints 

For each distinct foreign-key value in a relational 
database, there must exist in the database an equal value of 
a primary key from the same domain. If the foreign key is 
composite, those components that are themselves foreign keys 


must exist in the database as components of at least one 
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primary-key value drawn from the same domain. Consider the 
relational diagram in Figure 2.4. Aircraft Side Number is the 
primary-key value of the AIRCRAFT relation. Aircraft Side 
Number is also a foreign-key in the FLIGHT relation. From the 
relational diagram, FLIGHT must have one and only one Aircraft 
Side Number per document number while the relation AIRCRAFT 
can have one or more FLIGHTS associated with an Aircraft Side 


Number. 


AIRCRAFT SIDE NUMBER | ORGANIZATION CODE* gre 


FLIGHT 


DOCUMENT NUMBER AIRCRAFT SIDE NUMBER*| . . | 


Figure 2.4 Relational Diagram 





The entry of Document Number OQOO3AAA into the Flight 
relation in Figure 2.5 violates referential integrity because 
the Side Number 045 is not a primary~-key in the Aircraft 
relation. Referential integrity can be thought of as inclusion 
dependency in that the foreign key must be a subset of a 
database in which it is the primary key. 

E. User Defined Integrity Constraints 
Domain, column, entity, and referential integrity are the 


building blocks of the relational database. User defined 


EZ 


integrity constraints are constraints that are peculiar to the 
end-user or company. These constraints allow organization 
practices and policy, or governmental legislation to be 
reflected in the database delineated by the user. Consider the 


Naval Aircraft Flight Record in Figure 2.6. The exception code 


AIRCRAFT RELATION 
SIDE# Aircraft Side Number 
ORG Organization Code 


ios 
O52 
05:3 


FLIGHT RELATION 
DOCNUM Document Number 
SIDE# Aircraft Side Number 


OOO1AAA 
OOO2ZAAA 
OOO03AAA 





Figure 2.5 Referential Integrity Constraint 
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Figure 2.6 User Defined Integrity Constraint 1 


X 1s used to document a canceled flight. A canceled flight is 
one for which no flight time is obtained. Document 001 has 
violated a user defined integrity rule because it has allowed 
flight time to be documented for a canceled flight. 

User defined constraints such as this, require that UPDATE 


operations have an ordered sequence of events in order to 


ils) 


comply with all the integrity constraints defined” foretHe 
database. Examine the Naval Aircraft Flight Record in Figure 
2.7. In an UPDATE operation on Document 001 the Exception Code 
was changed to X. This resulted in the record change in the 
database demonstrated in Figure 2.8. Not only did all flight 
time need to be removed, the Mission Code needed to be changed 
to reflect the user defined constraint that the 2nd position 
of the Mission Code be N or the character O if the Exception 


Code is an X. 
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Figure 2.7 User Defined Integrity Constraint 2 
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Figure 2.8 User Defined Integrity Constraint 3 


The intent of this chapter has been to develop the 
framework for the expert system. Classifying the integrity 
constraints allows for the building of rules according to 
these constraints. In order for the expert system to function 
properly, the integrity constraints must be transparent to the 
user so that there is no reliance on voluntary action by the 
user to maintain integrity within the database. In regard to 
transparency, attempted violations of the integrity 


constraints must be denied with an appropriate reason for 
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denial conveyed to the user. Also, any operations on the 
database must be atomic in the sense that each operation must 
be completed satisfactorily (Satistying, all ineegrity 


constraints) or denied and rolled back to its original state. 


dlp. 


III. NAVAL AIRCRAFT FLIGHT RECORD RELATIONAL DATABASE DESIGN 


As discussed in Chapter I, the thrust of this thesis is 
the feasibility of using a front end expert system to enforce 
semantic integrity constraints. This chapter discusses the 
development of a relational database model and its associated 
semantic integrity rules that will serve as the case study for 


the front end expert system. 


A. BACKGROUND 

The relational database model developed in this chapter is 
based on the Naval Aircraft Flight Record (OPNAV 3710/4), shown 
in Figure 3.1. This record serves as the sole source of all 
naval aircraft flight data and is applicable in specific areas 
to aircraft simulators. The OPNAV 3710/4 record is prepared 
for each attempt at flight of naval aircraft or trauma 
evolution for simulators. The types of data collected ane: 


¢ A statistical description of the flight pertaining to the 
aircraft and crew members 


¢ A record of all logistic actions performed during the 
ff lhayey ate 


* A record of weapons proficiency 
¢ A record of training areas utilized and other 
miscellaneous data 
The Operations Department within the aircraft squadron is 


responsible for verifying the accuracy and completeness of 
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naval aircraft flight records submitted for data processing as 
well as verifying the daily audit reports, and coordinating 
the correction of errors with the maintenance analyst. The 
Maintenance Analyst is the NAVFLIRS coordinator who is 
responsible for accomplishing the daily submission of 
completed naval aircraft flight records for processing, 
distributing daily audit and monthly reports to the operations 
and maintenance departments, and coordinating error 
corrections with operation and maintenance control. Completed 
naval aircraft flight records are then forwarded to the Naval 
Safety Center (NAVSAFCEN) for processing. A Monthly Individual 
Flight Activity Report (MIFAR), shown in Figure "3o2,eeee 
produced by the NAVFLIRS system and forwarded to the aviator 
by NAVSAFCEN. The MIFAR contains all individual activity for 
that month, excluding those records appearing on the error 
reports processed by NAVSAFCEN. This includes a summarization 
by aircraft bureau number and by the flight times (FirstyPiiae 
Time (FPT), Co-Pilot Time(CPT), and Special Crew Time(SCT)), 
including instrument (Actual Instrument Time (ACT) and 
Simulated Instrument Time(SIM)), and night times for that 
month. The MIFAR also contains a weapons proficiency summary, 
a miscellaneous data section, and a fiscal year to date 
Summary indicating what is on record in the NAVFLIRS system. 
In addition to producing the MIFAR, the NAVSAFCEN is the 
collection and maintenance activity for the IFARS data bank. 


The IFARS is the primary source of individual flight data, 
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including those flights flown in authorized simulators. The 
reporting vehicle for IFARS data is the Naval Aircraft Flight 
Record OPNAV 3710/4. The IFARS data bank provides valuable 
exposure data for flight safety analysis and also provides 
data for other uses such as budget justification, past and 
future program evaluation, and pilot compliance with 
established minimum standards. Commander of Naval Military 
Personnel Command (COMNAVMILPERSCOM) annually convenes a flight 
board to review pilot flight activity by looking at the IFARS 
data bank against the annual flying requirements as set forth 
in OPNAVINST 3710. Each year, the Naval Safety Center mails to 
reporting individuals their flight data report for (ime 
previous fiscal year. IFARS data is applicable to naval 
aviators, student naval aviators, naval flight officers, 
aviation pilots flying naval aircraft, naval flight surgeons, 
and aerospace physiologists/psychologists in a DIFOPS (duty in 
a flying status for an officer involving operational or 
training flights) or DIFDEN(duty in a flying status iceman 
officer not involving flying) status On active “dutyeeen 
participating in the Navy or Marine reserve program. [Ref. 
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B. AIRCRAFT FLIGHT RECORD OBJECTS 
In order to develop a relational schema for the Naval 
Flight Data application, a series of objects were developed to 


capture the data requirements for the Naval Aircraft Flight 
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Record, OPNAV 3710/4. Anwobject is a»named collection»wof 
properties that sufficiently describes an entity in the user’s 
work environment [Ref. 4:p.90]. The objects developed for this 
application include: ORGANIZATION, AIRCRAFT, AIRCREW, FLIGHT, 
AIRCREW-FLIGHT, FOG SLrCsS, ARRIVAL, DEPARTURE. In the 
following sections, each object is described in more detail. 
The complete Object Diagrams are shown in Appendix A. 
1. ORGANIZATION Object 
This object represents a generic naval aircraft 
squadron. It is identified by an Organization Code and 
includes properties such as Data Processing Code, Organization 
Short Name, Support Code, Departure Time Zone, Departure IACO, 
Cats/Jato, Airlift Mission, Payload Configuration Data, and 
Training Codes. Typically an organization will have several 
aircraft. 
2. AIRCRAFT Object 
This compound object represents a generic naval 
aircraft. It can be identified by the Aircraft Side Number or 
Buno/Serial Number and includes properties such as Type 
Equipment Code, and Number of Engines. Typically an aircraft 
is assigned to exactly one organization and is used for many 
maeeoghts . 
3. FLIGHT Object 
This compound object represents a generic naval 


aircraft flight. It is identified by the Document Number and 
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includes properties such as Exception Code, Total Flights, 
Ship/Field Operations Code, Catapult/Jato Launches, Airlift 
Mission Number, Number of Hoists, and Remarks. Mission Code, 
Mission Hours, Engine Number and Engine Hours are multi-valued 
properties and can contain more than single values. A flight 
can only involve one aircraft but may typically involve many 
aircrew members while carrying out many logistic missions. 
4. AIRCREW Object 

This object represents a generic naval aircrew member. 
It is identified by the Social Security Number and includes 
properties such as Last Name, First Initial, Service, Grade, 
Organization, Natops Qualification Expiration Date, Medical 
Expiration Date, Instrument Qualification Expiration Date, 
Water Qualification Expiration Date, Physiology Qualification 
Expiration Date, Assigned Syllabus, Syllabus Status Code, 
Aircrew Status Code, and Exception Code. Typically an aircrew 
member will be involved in many aircrew flights. 

5. AIRCREW FLIGHT Object 

This association object represents a generic naval 
aircrew flight. It is identified by the combination of 
properties, Document Number and Social Security Number. The 
justification for making AIRCREW FLIGHT an association object 
instead of a compound object stems from the fact that AIRCREW 
FLIGHT iS perceived as an independent object. Independent, 


because it contains non-key data and documents a relation 
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between FLIGHT and AIRCREW. Its properties include First Pilot 
Time, Co-Pilot Time, Special Crew Time, Actual Instrument 
Time, Simulated Instrument Time, and Night Time. Multi-valued 
properties include Type Landings, Number Landings, Type 
Approach, Number Approaches, Training Code, Training Area, 
Training Hours, Ordnance Code, Delivery Code, Runs, Score, 
Miscellaneous Data Code and Miscellaneous Data. 
6. LOGISTICS Object 

This object represents a generic naval logistic flight 
leg. It is a composite object that is identified by the 
composite key of Document Number and Leg Number and contains 
the property Time Zone. Each logistic leg will be associated 
with a flight and have one arrival and departure. 

7. DEPARTURE Object 

This composite object represents a generic naval 
flight departure leg. It is identified by Document Number, Leg 
Number, and Departure Time. Its properties include Departure 
Date, Departure ICAO, Confirmed Payload Cargo, Opportune 
Payload Cargo, Maximum Passenger, and Maximum Cargo. Delay 
Departure Code, Delay Departure Hours, Passenger Priority, and 
Opportune Payload Code are multi-valued properties. Each 


departure will be associated with one logistic leg. 


8. ARRIVAL Object 
This composite object represents a generic naval 


flight arrival leg. It is identified by Document Number, Leg 
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Number, and Arrival Time. Its properties include Arrival Date, 
Arrival ICAO, System Status, and Distance. Delay Arrival Code 
and Delay Arrival Hours are multi-valued properties. Each 


arrival will be associated with one logistic leg. 


C. NAVAL AIRCRAFT FLIGHT RECORD SCHEMA 

In this section we perform a logical database design by 
transforming the objects developed in the previous section 
into a relational schema. The output from this phase is a set 
of relations, relation definitions, relationships between 
relations, and constraints on these relationships. In the 
following sections, we discuss the main relations and 
relationships of the schema. Refer to the Object Diagrams in 
Appendix A and the Relational Diagrams in Appendix C for the 
followims discussion. 

1. ORGANIZATION Relation 

This relation is transformed from the object 

ORGANIZATION. It is identified by the attribute organization 
code. This relation is associated in a one to many optional 
relationship with the AIRCRAFT relation. In other words, a 
record of this relation may be associated with one or more 
records of the AIRCRAFT relation. 

2. AIRCRAFT Relation 

This relation is transformed from the compound object 

AIRCRAFT. It is identified by the attribute aircraft side 


number. It contains the foreign attribute of organization code 
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from the ORGANIZATION relation. Whereas the ORGANIZATION did 
not need any instances of aircraft, the AIRCRAFT has a 
mandatory relationship with the ORGANIZATION. This represents 
a many to one mandatory relationship. On the other hand, the 
AIRCRAFT relation is associated in a one to many optional 
relation with the FLIGHT relation. As with the ORGANIZATION 
relation, a record in this relation may be associated with one 
Or more records of the FLIGHT relation. 
3. FLIGHT Relation 

This relation is transformed from the compound object 
FLIGHT. It is identified by the attribute document side 
number. It contains the foreign attribute aircraft side number 
from the AIRCRAFT relation. FLIGHT is represented by a many to 
one mandatory relationship with AIRCRAFT, indicating that any 
records from this relation must be associated with one record 
of the parent AIRCRAFT. The object FLIGHT is also a composite 
object meaning that it contains repeating groups of non object 
properties. Each of these groups is represented by a relation 
in the database. The first relation, MISSION, is identified by 
the composite key document number and mission code. It is 
represented as a many to one mandatory relationship indicating 
the possibility of many mission records, each associated with 
a FLIGHT record. The second relation, ENGINE, is identified by 
document number and engine number. It is also represented as 


a many to one mandatory relationship, indicating as many 
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records as the aircraft has engines. 

The relation FLIGHT also serves as the parent to both 
the relations AIRCREW FLIGHT and LOGISTICS. In both instances, 
the relation is associated in a one to many optional 
relationship. Each record of FLIGHT may be associated with one 
or more records of both the AIRCREW FLIGHT and LOGISTICS 
relations. 

4. AIRCREW Relation 

This relation is transformed from the object AIRCREW. 
It is identified by the attribute ssn (Social Security 
Number). This relation is associated in a one to many optional 
relationship with the AIRCREW FLIGHT relation. In other words, 
a record of this relation may be associated with one or more 
records of the AIRCREW FLIGHT relation. 

5. AIRCREW FLIGHT Relation 

This relation is transformed from the association 
object AIRCREW FLIGHT representing the relationship between 
FLIGHT and AIRCREW. The relation is identified by the 
composite properties of document number and ssn, each of which 
are the keys of the parent relations. Although this object 
does not contain a key of its own, it does contain non-key 
data that indicate details of a specific flight and represents 
a real object in the user’s environment. The non-key data are 
represented by multiple repeating groups. Each of these 


repeating groups is represented by a relation with a one to 
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many optional relationship with AIRCREW FLIGHT. The first 
relation, LANDING, is identified by document number, ssn, and 
type landing. The second relation, APPROACH, is identified by 
document number, ssn, and type approach. The third relation, 
TRAINING, 1s identified by document number, ssn, and training 
code. The fourth relation, TRAINING AREA, is identified by 
document number, ssn, and training area. The fifth relation, 
WEAPONS, is identified by document number, ssn, and delivery 
number. The final relation within the association object is 
MISCELLANEOUS, identified by document number, ssn, and 
miscellaneous data code. 
6. LOGISTICS Relation 

This relation is transformed from the composite object 
LOGISTICS. It is identified by the composite properties 
document number and leg number. It is associated with FLIGHT 
in a many to one mandatory relationship indicating that any 
records in this relation must be associated with a record in 
the FLIGHT relation. The relation is also associated with the 
relations DEPARTURE and ARRIVAL aS a one to one mandatory 
relation. Both relations DEPARTURE and ARRIVAL contain records 
that describe different aspects of the same relation LOGISTIC. 
Although these relations may be combined into one, a better 
user understanding of the relational database design and 
better database performance can be achieved by the separating 


the two. 
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7. DEPARTURE Relation 

This relation is transformed from the composite object 
DEPARTURE. It is identified by the composite properties 
document number, leg number, and departure time. AS was 
mentioned previously, it is represented as a one to one 
mandatory relationship with the LOGISTIC relation. It also 
contains multiple repeating groups represented by the 
following relations which maintain a one to many optional 
relationships with DEPARTURE. The first relation, PASSENGER, 
is identified by document number, leg number, and passenger 
priority. The second relation, PAYLOAD, is identified by 
document number, leg number, and opportune payload code. The 
last relation, DEPARTURE DELAY, is identified by document 
number, leg number, and delay departure code. 

8. ARRIVAL Relation 

This relation is transformed from the composite object 
ARRIVAL. It is identified by the composite properties document 
number, leg number, and arrival time. Once again, it is 
represented as a one to one mandatory relationship with the 
LOGISTIC relation. It is also represented by a relation, 
ARRIVAL DELAY, representing a one to many optional 
relationship. The relation is identified by document number, 


leg number, and delay arrival code. 
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D. INTEGRITY CONSTRAINTS 
In this section, we present the semantic integrity rules 
that need to be maintained for the relational schema developed 
in the previous section [Ref. 5]. Due to the sheer size of the 
database design, it was decided to narrow the focus of the 
front end expert system by limiting the integrity constraints 
to the FLIGHT relation. The narrowed focus still allowed the 
system to address all the classes of integrity constraints 
developed in Chapter II. 
1. Domain Integrity Constraints 
The domain constraints enforced in this application 
are presented in Appendix B. 
2. Column Integrity Constraints 
The column constraints as discussed previously in 
Chapter II can be thought of as a subset of the domain 
integrity constraints. The following column integrity 
constraints are enforced in the front end expert system: 
e Exception Code must be C, D, X, or BLANK 


¢e Mission Code (n) where n = 1 must be in the range of 1-6 
or BLANK 


* Mission Code (n) where n > 1 must be in the range of 1-5 
or BLANK 


¢ Mission Hours (n) where n = 1 must be in the range of 0.1 
to 72.0 or BLANK 


* Mission Hours (n) where n > 1 must be in the range of 0.1 
to (72.0 — Sum of Mission Hours) or BLANK 


* Total Flight must be in the range of 1-99 or BLANK 


IA, 


¢ Ship/Field Operations must be A, B, 1, 2, or BLANK 


* Catapult/Jato Launches must be in the range of 1-99 or 
BLANK 


¢ Engine Hours (n, ntl, nt+2,...) must be in the range of 0.1 
to 72.0 or BLANK 


* Number of Hoists must be in the range of 1-99 or BLANK 
3. Entity Integrity Constraints 
The following entity integrity constraints are 
enforced by the front end expert system: 
¢* Document Number cannot be missing or duplicated 
e Aircraft Side Number cannot be missing 
* Mission Code (n) where n = 1 cannot be missing 
4. Referential Integrity Constraints 
The following referential integrity constraints are 
enforced by the front end expert system: 
e Aircraft Side Number must be validated against the 
AIRCRAFT object for the purpose of recording a valid 
Buno/Serial number and ensuring the correct number of 


engines are recorded for flight time 


¢ Document Number for the composite objects is the same as 
the FLIGHT document number 


5. User Defined Integrity Constraints 
The following user defined integrity constraints are 
enforced by the front end expert system. 
a. Intra-Attribute Constraints 
These user defined integrity constraints apply to 
the relationships within an attribute: 


* Mission Code (n), Position 2, when n=1 or >1, must be R or 
in the range of A-I or N-P if Position 1 is al 
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the 


Mission Code (n), Position 2, when n=1 or >1,must be in 
the range of J-R if Position 1 is a 2 


Mission Code (n), Position 2, when n=1 must be O or in the 
mange OL o-2 lf PoSttwenm ! 1s 3-6 or Position Cede is 3-5 
when n>l 


Mission Code (n), Position 2, when n=1 must be O or N if 
Exception Code is X 


Mission Code (n), Position 1,2, and 3 when n>1l must be 
BLANK when Exception Code is X 


Mission Code (n), Position 1,2, and 3 when n>2 must be 
BLANK when Mission Code (n-1) is BLANK 


b. Intra-Relation Constraints 
These user defined integrity constraints apply to 
relationships within a relation: 


Mission Hours (n), when n=l or >1, must be Blank if 
Exception Code is X 


The sum of Mission Hours (n+(nt+l)+(n+2)+...) must not 
exceed 72.0 hours 


Mission Hours (n), when n>1, must be BLANK if Mission Code 
(n) is BLANK 


Total Flight must be BLANK if Exception Code is X 


Total Flight must meet its column integrity constraints if 
the Exception Code is not X 


Ship/Field Operations Code must be BLANK if Exception Code 
1s X 


Ship/Field Operations Code must meet its column integrity 
constraints if the Exception Code is not X 


Catapult/Jato Launches must be BLANK if Exception Code is 
Xx 


Catapult/Jato Launches must meet its column integrity 
constraints if the Exception Code is not X 


Airlift Mission Number must be BLANK if Exception Code is 
x 


B1 


¢ Airlift Mission Number must meet its column integrity 
constraints if the Exception Code is not X 


¢ Engine Hours (n,ntl,n+2,...) must be BLANK if Bxcepeaen 
Code is X 

e Engine Hours (n,nt+l,nt+2,...) must be in the range of 0.1 
to Mission Hours (n,ntl1,nt+2,...) if the Exception Codes. 
MNO x 


¢ Number of Hoists must be BLANK if Exception Code is X 
¢ Number of Hoists must meet its column integrity 
constraints if the Exception Code is not X 
In the next chapter, the design and implementation of 
a front end expert system that enforces the above integrity 


rules is described. 
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IV. DESIGN AND IMPLEMENTATION OF THE FRONT END EXPERT 
SYSTEM 
Expert systems are programs that respond to information 
very much like a human expert in a well-defined area(the 
program’s domain). They capture and distribute knowledge to 
the mnon-experts and general practitioners in specific 
application areas where: 


¢ Difference in performance is largely based on expert 
knowledge. 


¢ This knowledge is experienced-based. 
¢ The knowledge can be stated as “If...then"™ rules 
(Ref. 6:p.17] 
An important aspect of some expert systems is the ability to 
capture knowledge and then record it as a set of rules ina 
knowledge base. Expert system shells such as VP-Expert use an 
inference engine that interacts with the user and navigates 


through the knowledge base to deliver this knowledge. 


A. INFERENCE ENGINE 

The search strategy or problem solving method used in this 
thesis application and supported by VP-Expert is called 
Peackward-chaining." The inference engine starts by 
identifying a target variable and then moves through a 
sequence of rules until it finds a value that can be assigned 


to that target variable. Consider the following example in 
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Figunes4 il. 
In this example, any of the three rules can assign a value 
to TOTFLT VALID. If the value for EXCD is not known then the 


inference engine looks for the rule assigning a value to EXCD 


TOTFLT VALID; -The target variable is 
identified as 
TOTAL FLIGHT VALID 


USER_DEFINED CONSTRAINT TOTFLT 1 


EXCD = X -If Exception Code is 
equal to the value "X" 


TOTFLT = (BLANK) -Then assign a null 

TOTFLT VALID = TRUE; value to TOTFLT and 
assign TRUE to 
TOTAL VALID 


USER DEFINED CONSTRAINT TOTP ite 


EXCD <> X AND -If Exception Code is 

TOTFLT >= 1 AND not equal "X" and the 

TOTFLT <= 99 value assigned to 
TOTFLT is greater than 
QO and less than 100 


TOTFLT VALID = TRUE; -Then assign TRUE to 
TOTFLT VALID 


USER DEFINED CONSTRAINT TOTFLT 3 


EXCD <> X AND -If Exception Code is 
TOTFLT < 1 OR not equal "X" and the 
TOD IT 9 value assigned to 
TOTFLT is less than 
1 or greater than 99 


TOTF LT VALID — EFAESE,; -Then assign FALSE to 
TOTFLE WALES 





Figure 4.1 "Backward" Chaining 


in its conclusion. If the value assigned to EXCD is 


X, USER_DEFINED CONSTRAINT TOTFLT 1 is fired and the value for 
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TOTFLT becomes null. On the other hand if the value of EXCD is 
not equal to X, then the first rule is passed and the second 
rule is applied. Once again, if the value for TOTFLT is not 
known, then the inference engine must look for a rule that 
assigns a value to TOTFLT. This pattern continues if other 
variables within the rule were not known. Once all the values 
are known, the inference engine retraces its steps and tests 
the original rule. In the example above if TOTFLT is 2, then 
rule USER_DEFINED CONSTRAINT TOTFLT 2 is fired and 


Beer iiwVALID 18 assigned TRUE. 


B. APPLICATION DESIGN 

The front end expert system is the user’s interface with 
the database. It is designed to perform maintenance on the 
database to include append, update, and delete operations. 
While the rules have been defined in the last chapter, this 
section deals with the logic needed in the application. Which 
questions are asked initially? Which answers lead to other 
questions? In the following sections we discuss each of the 
maintenance operations. 
NOTE: While all the maintenance operations require access to 
all objects of the database design, no maintenance operations 
are allowed on the following objects; ORGANIZATION, AIRCRAFT, 
and AIRCREW. The security of these objects require that they 
be protected from either malicious or accidental destruction 


mmc orruption. 


Sie 


1. Append 

After the user selects APPEND RECORD from the main 
menu, the expert system uses a system-generated dialogue with 
the user to generate a record for the FLIGHT object. Each 
attribute is checked against the integrity constraints for 
that specific attribute by the inference engine. Each 
attribute that meets the constraints imposed by the expert 
system is stored until the end of the transaction. If the 
attribute cannot meet the integrity constraints of the 
knowledge base, the system continues to ask the user for the 
attribute and offers assistance as to a valid attribute the 
system will accept. This feature disallows an invalid 
attribute and prevents the invalid record from being added to 
the database, since the user cannot continue until a valid 
attribute is entered. 

The logical ordering of questions follow from the 
Naval Aircraft Flight Record(OPNAV 3710/4)as shown in Figure 
3.1. Some of the answers that lead to other questions include 
the following: 

«e Exception Code = X 
«Mission Geode 1/Poestreto nm .s—mo 


* Mission Code 2 = Unknown 


These answers affect the logical ordering of questions to be 
asked. The rules from Figure 4.1 used earlier in finding 


TOTFLT VALID show this ordering. If the Exception Code is 
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equal to X then TOTFLT is set to null. This made the attribute 
TOTFLT appear to be overlooked, when in fact the rule 
USER_DEFINED CONSTRAINT TOTFLT_ 1 fired and assigned (BLANK) to 
the attribute TOTFLT. 

At the end of the append operation, all values 
asSigned to the attributes are committed to the database. If 
at any time during the transaction the user quits, or the 
append operation iS terminated, the attribute values are 
effectively rolled back to their previous values. 

2. Update 

This maintenance operation is probably the most 
Critical of all the operations. Questions, that are asked in 
a logical order in the append operation, may not have been 
asked when updating the value of one attribute. The ability to 
change attribute values of a record requires a clear 
understanding of the semantics of the whole database. 

The selection of the UPDATE RECORD from the main menu 
provides the user with another menu showing all possible Naval 
Aircraft Flight Records within the database to update. After 
selection of a record, the user is then presented with a sub- 
menu of all possible attributes to update. The changing of one 
attribute may not only fire the rule for that attribute but 
may also fire multiple other rules for attributes that are 
logically affected by the update of that attribute. For 


example, a Naval Aircraft Flight Record with the attribute 
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Exception Code equal to X designates a canceled flight and, 
therefore, cannot contain flight data. In the event that the 
canceled flight was later flown, an update to the record 
should ensure that all the attributes of a flight are updated. 
Because of this, each unique update operation fires a separate 
rule. This presents a logical ordering of questions, which 
preserves the semantic integrity of the record in conjunction 
with the attribute updated. Figure 4.2 is an example of one of 
many update rules searched to update Mission Code 1. The 
inference engine searches the knowledge base after a valid 
Mission Code 1 has been entered to provide the logic that is 
needed to preserve the integrity of the record. This rule 
could only fire after Mission Code 1 met the Integrity 
Constraints defined in Chapter III. No attributes are 
committed to the database until all attributes meet all 
integrity constraints as determined by the inference engine. 
3. Delete 

The final maintenance operation deals with purging the 
database of unwanted records. This requires a cascaded delete 
operation. This operation deletes the designated FLIGHT record 
and all optional records related to the deleted FLIGHT record. 
These relations are shown in the relational schema of Appendix 
C. This function is based on referential integrity and the 
associated concept of inclusion dependency as discussed in 


Chapter II. Because this operation is potentially destructive, 
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a confirmation message that explains the consequences of the 


process is displayed, and the user is given the opportunity to 


cancel the delete operation. This operation doesn’t mark the 


RULE MISSION CODE 1 RULE 2 


ee 


FIELD TO UPDATE = MISSION CODE 1 AND 


MSoN1 1 


= 6 AND 


EXCD <> X 


THEN 


MISSION_CODE1 RULE = USED 


TOTAL 


= 0 


FIND HRS1 VALID 
MSN2_1 
MSN2_2 
MSN2_ 3 
HRS2 = 
MSN3_1 
MSN3_2 


MSN3_3 
HRS3 = 


(BLANK) 
(BLANK) 
(BLANK) 
BLANK) 
(BLANK) 
(BLANK) 
(BLANK) 
(BLANK) 


It tau Wf 


FIND MISSION1_ENGHRS VALID 
PUT FLIGHT 
CLOSE FLIGHT; 


mecord for deletion, 





-Field to Update = 
Mission Code 1 and 
-Mission Code 1 
Position 1 = 6 and 
-Exception Code = "xX" 


-Assigns USED to 
target variable 
-Assigns 0 to TOTAL 
Eouslotal Hours £ilown 
—Looks for HRS1 VALID 
-Assigns null to 
MSN2_1 
-Assigns null to 
MSN2 2 
-Assigns null to 
MSN2_ 3 
-Assigns null to 
HRS2 
-Assigns null to 
MSN3_ 1 
-Assigns null to 
MSN3 2 
-Assigns null to 
MSN3_ 3 
-Assigns null to 
Hoo 
-Looks for 
MISSION1 ENGHRS VALID 
—-Commits attributes to 
database 
—-Closes database 


Figure 4.2 Update Operation Mission Code 1 


instead it assigns an unknown value 


(BLANK) to each attribute of the record and then commits these 


values to the associated relations. 


oye, 


V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

This thesis has addressed the issue of dynamic enforcement 
of integrity constraints ina relational database through the 
use of a front end expert system. It has also addressed the 
classification of integrity constraints as a framework for 
designing and building the front end expert system. The 
development of a front end expert system for the Navy’s Naval 
Aircraft Flight Record served as the vehicle for demonstrating 
the feasibility of this concept in a well-defined, structured 
area. 

Although limited in functionality, the Naval Almemeree 
Flight Record front end expert system was successful in 
maintaining semantic integrity for any given maintenance 
operation(insertion, deletion, and update.) Because of the 
atomic nature of all maintenance operations, the integrity of 
the database is guaranteed at all times. A separate validation 
program is, therefore, not required to audit the database 
periodically. 

The use of an expert shell with an If...Then construct 
proved to be a viable method to test and implement the 
integrity constraints developed. The ability to store these 


rules in one central repository (knowledge base) was the most 
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Bignifweant Denefwework usingeanwexpert shell. Any maintenance 
to the program itself was made easier by the ability of the 
user to ask why a particular response was obtained. This 
allowed for query of the appropriate rule and examination of 
the constraints imposed, therefore simplifying program 
maintenance. 

The expert shell (VP-Expert), while user friendly, proved 
to be inefficient in building and supporting the atomic nature 
of the maintenance operations and the integrity constraints. 
VP-Expert was not designed to access a database efficiently. 
The limitation of single record access commands, such as GET 
and PUT, severely inhibits the performance of the shell in any 
query operations on medium to large databases. 

The validity of using an expert system as a front end to 
check potential violations of one or more integrity 
constraints was proved. Naturally, the correctness of all 
values in the database could not be guaranteed. Any semantic 
integrity system could only ensure that the data in the 


database meet the integrity constraints defined in the system. 


B. RECOMMENDATIONS 

Initially, this researcher attempted to use an expert 
shell other than VP-Expert to develop the front end system. A 
Structured Query Language Interface (VP-Expert/SQL) was the 
first choice. It was hoped that using this system would 


provide a powerful tool for the enforcement of integrity 
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constraints within a relational database. However, this 
software proved to be unstable and was recently withdrawn, 
along with all technical support. This was unfortunate, but 
SQL should still be considered a feasible tool for follow-up 
research in this area. SQL would enable subqueries and join 
operations and eliminate many of the inefficiencies inherent 
to the system (i.e., loops, nested loops. see Appendix E) 

The prototype front end expert system developed in this 
thesis resulted in a knowledge base of approximately 150 
rules. If the number of rules increase, the opportunity for 
redundant and possibly conflicting rules would multiply. This 
would inhibit the process of revalidating the system after 
making changes to the knowledge base. The importance of 
checking the knowledge base becomes even greater as this 
happens. 

Other follow-up research may include the feasibility of 
using an object oriented database in providing semantic 
integrity. Object oriented languages provide for the notion of 
objects, classes, and inheritance. As opposed to tuples in the 
relational model, objects have an identity which is 
independent of their value. This characteristic is central to 
the domain concept and should enhance this approach to enforce 


integrity. 
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APPENDIX A 


NAVAL AIRCRAFT FLIGHT RECORD OBJECT DIAGRAMS 
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APPENDIX B 


NAVAL AIRCRAFT FLIGHT RECORD OBJECT SPECIFICATIONS 


Object Definitions 


FLIGHT OBJECT 

document number; docnum 

aircraft side number; sidenum 

exception code; excd 

mission code; msn MV 

mission hours; hours MV 

totaly MeiGhts; womrlr 

operations code; ops 

Cataruleygato; ¢y 

alrlift mission number; misnum 

engine number; engnum MV 

engine hours; hours MV 

number of hoists; numhoists 

remarks; remarks 

AIRCRAFT; AIRCRAFT object; SUBSET [aircraft side number] 
AIRCREW FLIGHT; AIRCREW FLIGHT object, MV 
LOGISTICS; LOGISTICS objgece, ik 


Domain Definitions 


aocuun- 
Text 7 
Unique number for organization’s Naval Flight Record 
Ssidenum; 
Numeric 5 
Unique number of an organizations aircraft 
excd; 
Text 1 
Code to record other than routine @ilighe 
msn; 
Text 3, mask FGS, 
where F is the Flight Purpose Code - numeric 
G is the General Purpose Code - alpha 
S is the Specific Purpose Code - numeric 
Unique mission code for a specific flight 
hours; 
Numeric 3, mask 99.9 
Hours dedicated to performance of mission 
Tei@itevlesl tee, 
Numeric 2 
Total number of flights 
Ops; 
Text 1 
Code for ship/shore operational scenario 
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cal 
Numeric 1 
Total number of catapult/jet assisted takeoff launches 
misnum; 
Text 9, mask ORGDATENN, 
Where ORG is the organization code - Text 
DATE is the julian date - numeric 
NN is 01-99 sequentially assigned 
engnum; 
Numeric 1 
Unique engine number 
numhoists; 
Numeric 2 
Total number of hoists on a flight 
remarks; 
Text 15 
Used as needed 
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APPENDIX C 


NAVAL AIRCRAFT FLIGHT RECORD RELATIONAL DIAGRAMS 
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APPENDIX D 
SESSION WITH NAVAL AIRCRAFT FLIGHT RECORD EXPERT SYSTEM 
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APPENDIX §E 


NAVAL AIRCRAFT FLIGHT RECORD RULE-BASE 


Naval Aircraft Flight Record Expert System 

By George J. Salitsky 

Naval Postgraduate School 

This program is a prototype Front End Expert System 
designed to maintain semantic integrity within the 
database according to the integrity constraints specified 
in the knowledge base. 


AUTOQUERY ; 
RUNTIME; 
ENDOFF; 


ACTIONS 
FORMAT TOTAL, 4.1 
DISPLAY "THIS IS A FRONT END INTEGRITY EXPERT SYSTEM TO 
ENABLE THE ACCURATE COLLECTION OF INFORMATION FOR THE 
NAVYS AIRCRAFT FLIGHT RECORD, OPNAV 3710/4. 


PRESS SN Kew lO SEGINge.,— ~ 


loop to ask user which maintenance operation to perform on 
the database. whichtask is the main menu, options include: 


! 

! 

! 1. APPEND 
! 2. UPDATE 
! 3. DELETE 
! 4. DISPLAY 
! 5. EXIT 


CLS 
RESET WHICHTASK 
WHILETRUE WHICHTASK <> EXIT THEN 
RESET ALL 
! set up variable BLANK 
CHR 32, BLANK 
FIND WHICHTASK 
FIND TASKCOMPLETED 
END; 


1 kkkkkKKkXKKKkKKKKKKKKK APPEND OPERATION *&XkxkKkKKKKKKKKKKK 
RULE APPEND RECORD 
IF 
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WHICHTASK = APPEND RECORD 
THEN 
FIELD TO UPDATE = NONE 
TASKCOMPLETED = YES 
RESET DOCNUM_ NEW 
' ask user for document number 
FIND DOCNUM_NEW 
RESET DOCNUM NOT MISSING 
!' cannot allow a null value for document number 
FIND DOCNUM NOT MISSING 
RESET DOCNUM DUPLICATE 
' cannot allow duplicate document numbers 
FIND DOCNUM DUPLICATE 
DOCNUM = (DOCNUM_NEW) 
CLOSE FLIGHT 
RESET SIDENUM NEW 
!' ask user for aircraft side number 
FIND SIDENUM NEW 
RESET SIDENUM_NOT MISSING 
' cannot allow a null value for side number 
FIND SIDENUM NOT MISSING 
RESET SIDENUM EXISTS 
' side number must match an aircraft in organization 
FIND SIiDENUM Exists 
CLOSE AIRCRAFT 
RESET EXCD 
' ask user for exception code 
FIND EXCD 
RESET EXCD VALID 
' only certain exception codes allowed 
FIND EX€D VA. 
! find mission code 1 position 1 
Gils 
RESET MSN1_1 
FIND MSN1_1 
RESET MSN11 VALID 
FIND MSN11 VALID 
! find mission code 1 position 2 
Cis 
RESET MSN1 2 
FIND MSN1 2 
RESET MSN12_ VALID 
FIND MSN12 VALID 
! find mission code 1 position 3 
SES 
RESET MSN1_ 3 
FIND MSN1 3 
RESET MSN13 VALID 
FIND MSN13_ VALID 
Chis 
!' find mission 1 hours 
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Reo. CHECK 
Php s CHECK 
TEMPHRS1 
TEMPHRS2 
TEMPHRS 3 
TOTHRS = 7220 
SUBTOTAL = 0 
RESET HRS1 VALID 
FIND HRS1 VALID 
find mission code 2 position l 
Cli 
RESET MSN21_ VALID 
FIND MSN21 VALID 
find mission code 2 position 2 
CLS 
RESET MSN22 VALID 
FIND MSN22 VALID 
find mission code 2 position 3 
CLS 
RESET MSN23 VALID 
FIND MSN23 VALID 
Cis 
find mission 2 hours 
RESET HRS2_ VALID 
FIND HRS2 VALID 
find mission code 3 position 1 
CLS 
RESET MSN31_ VALID 
FIND MSN31 VALID 
find mission code 3 position 2 
Glis 
RESET MSN32 VALID 
FIND MSN32 VALID 
find mission code 3 position 3 
CLS 
RESET MSN33 VALID 
FIND MSN33_ VALID 
Clio 
find mission 3 hours 
RESET HRS3 VALID 
FIND HRS3 VALID 
CLS 
find total flights 
RESET TOTFLT VALID 
FIND TOTFLT VALID 
Cis 
find ship/field operations code 
RESET OPS VALID 
FIND OPS VALID 
Cis 
find catapult/jato launches as necessary 


0 
0 
0 


ql 


GET ALL, ORGAN, CATSJATO 
RESET CJ VALID 
FIND CJ VALID 
CLOSE ORGAN 
Calg: 
! find airlift mission number as necessary 
GET ALL, ORGAN, AIRLIFT 
Reise T ATRELE TY fie 
FIND AIRLIFT VALID 
CLOSE ORGAN 
Gis 
! find number of hoists 
RESET NUMHOIST VALID 
FIND NUMHOIST VALID 
CLS 
! append new record to flight database 
APPEND FLIGHT 
! loop to get engine hours for aircraft on flight 
! determined by aircraft record 
GET SIDENUM = (SIDENUM NEW), AIRCRAFT, ENGINES 
CLOSE AIRCRAFT 
RESET ENGHRS VALID 
FIND ENGHRS VALID 
CLS; 


Lb KAKKKKKKKKKEKKEKKEKKEK UPDATE OPERATION x4 XX XXAKKKKKKKAKKKEKEK 


RULE UPDATE DOCUMENT 
1s 

WHICHTASK = UPDATE RECORD 
THEN 

TASKCOMPLETED = YES 

RESET DOCNUM UPDATE 

MENU DOCNUM UPDATE, ALL, FLIGHT, DOCNUM 
! ask user for document number from menu of all document 
! numbers 

FIND DOCNUM_UPDATE 

MRESET DOCNUM_UPDATE 

RESET UPDATE 

FIND UPDATE; 


! determine if there are any Flight Records to update 
RULE UPDATE 
ite 
DOCNUM UPDATE = NONE AND 
UPDATE = UNKNOWN 
THEN 
' no flight records to update 
UPDATE = NO 
DISPLAY “ THERE IS NO FLIGHT RECORD TOSUPDATES 


TZ 


PRESS ANY KEY TO CONTINUE 


CLs 
ELSE 
! flight records available to update 
UPDATE = YES 
GET DOCNUM_ UPDATE = DOCNUM, FLIGHT, ALL 
CLOSE FLIGHT 


eis 
DISPLAY " YOU HAVE SELECTED RECORD NO. {DOCNUM_UPDATE} 
TO UPDATE." RESET FIELD TO UPDATE 


! ask user for attribute to update by menu field _ to _ update 
WHILETRUE FIELD TO UPDATE <> DONE THEN 
RESET FIELD TO UPDATE 
RESET UPDATE COMPLETED 
FIND FIELD TO UPDATE 
PD VEbate COMPLE TBD 
END; 


1 kkkxkkkkkKKkKKKKKK UPDATE DOCUMENT NUMBER *X%XXKKKKKKKKKKKKKKEK 


RULE UPDATE DOCUMENT NUMBER 
tet 
FIELD TO UPDATE = DOCUMENT NUMBER 
THEN 
UPDATE COMPLETED = YES 
! display current document number 
DISPLAY "{DOCNUM_ UPDATE} IS CURRENTLY THE DOCUMENT 
NUMBER. 
w 
CLOSE FLIGHT 
RESET DOCNUM NEW 
!' ask user for document number 
FIND DOCNUM_ NEW 
RESET DOCNUM NOT MISSING 
! cannot allow a null value for document number 
FIND DOCNUM NOT MISSING 
RESET DOCNUM DUPLICATE 
! cannot allow duplicate document numbers 
FIND DOCNUM DUPLICATE 
RESET DOCNUM NOT MISSING 
RESET DOCNUM DUPLICATE 
CLOSE FLIGHT 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, DOCNUM 
DOCNUM = (DOCNUM_NEW) 
PUT FLIGHT 
CEOsSE FLIGHT 
! change document number on ENGINE records 
GET DOCNUM UPDATE = DOCNUM, FLTENG, DOCNUM 
WHILETRUE DOCNUM <> UNKNOWN THEN 
DOCNUM = (DOCNUM_NEW) 
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PUL EE teEnNG 

GET DOCNUM UPDATE = DOCNUM, FLTENG, DOCNUM 
END 
CLOSE FLTENG 
FIELD TO UPDATE = e@niny 


1 xkxxkxkkkkkkkkek*kkK UPDATE AIRCRAFT SIDE NUMBER *8XXXXKKKKKKEKK 


RULE UPDATE SIDE NUMBER 
IF 
FIELD TO_UPDATE = STEP ERhUMEEE 
THEN 
UPDATE GOMEEETEDTS YEo 
GET DOCNUM UPDATE = DOCNUM, FLIGHT) otter 
! display current side number 
DISPLAY “THE AIRCRAFT SIDE NUMBER IS CURRENTLY 
{SIDENUM}. 
| 


CLOSE FLIGHT 
RESET SIDENUM UPDATE 
!' ask user for new aircraft side number 
FIND SIDENUM UPDATE 
REE SIDENUM UPDATE NOT MISSING 
' cannot allow a null value for side number 
FIND SIDENUM UPDATE, NOT Missaic 
RESET SIDENUM UPDATE EXISTS 
!' side number must match an aircraft in organization 
FIND SIDENUM UPDATE EXISTS 
RESET SI DENUM UEDA T Eee S rs 
RESET SIDENUM UPDATE NOT MISSING 
CLOSE ZELfcH. 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, SIDENUM 
SIDENUM = (SIDE) 
PUT FLIGHT 
CLOSE FESGET 
FIELD TO UPDATE = DONE; 


l kkkkkkkkkkkkkek UPDATE EXCEPTION CODE *4RRRKKKKKKKKK 


RULE UPDATE EXCEPTION CODE 
i 
FIELD TO UPDATE = EXCEPTION CODE 
THEN 
UPDATE CCP EET ED eas 
! display current exception code 
DISPLAY “THE EXCEPTION CODE IS CURRENTEY Si ce. 
| 


q 
RESET EXCD NEW 
FIND EXCD_ NEW 

! find if new exception code meets constraints 
RESET UPDATE EXCD VALID 
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FIND UPDATE EXCD VALID 


!' from new exception code determine logic to keep database 
! in a valid state 


RESET EXCD RULE 
FIND EXCD_RULE; 


1 kxkkkKKKKKKKKKK EXCEPTION CODE LOGIC **XKKKKKKKKKKK 
1 AKAKKKAKAKAKAKKAKKKKKKK RULE 1 REAKKKKKKKKAKKKKKKKE 


RULE 
los 


HEN 


change exception code to X (canceled flight) 
EXCEPTION RULE_1 


FIELD TO UPDATE <> MISSION 1 CODE AND 
FIELD TO UPDATE = EXCEPTION CODE AND 
EXCD NEW = X AND 

EXCD RULE = UNKNOWN 


EXCD RULE = TRUE 

GET DOCNUM_UPDATE = DOCNUM, FLIGHT, EXCD 
RESET EXCD 

EXCD = (EXCD_ NEW) 


!' need to get valid mission code 1 


RESET MSN1_ 1 

FIND MSN1 1 

RESET MSN11 VALID 
FIND MSN11 VALID 

els 

RESET MSN1_ 2 

FIND MSN1 2 

RESET MSN12_ VALID 
FIND MSN12_ VALID 
€Ls 

RESET MSN1 3 

FIND MSN1_ 3 

RESET MSN13 VALID 
FIND MSN13 VALID 

CHES: 

RESET MSN11 VALID 
RESET MSN12 VALID 
RESET MSN13 VALID 


! set all other flight attributes are null 


HRS1 = (BLANK) 

MSN2_1 = (BLANK) 
MSN2_ 2 = (BLANK) 
MSN2_ 3 = (BLANK) 
HRS2 = (BLANK) 

MSN3_1 = (BLANK) 
MSN3_2 = (BLANK) 
MSN3_3 = (BLANK) 
HRS3 = (BLANK) 

TOTFLT = (BLANK) 


dks 


OPS = (BLANK) 

CJ = (BLANK) 
MISNUM = (BLANK) 
NUMHOISTS = (BLANK) 
REMARKS = (BLANK) 
PUT FLIGHT 

CLOSE, Piwrsntr 


! loop to remove related ENGINE records 


GET DOCNUM UPDATE = DOCNUM, FLTENG, ALL 
WHILETRUE ENGNUM <> UNKNOWN THEN 


DOCNUM = (BLANK) 
ENGNUM = (BLANK) 
ENGHRS = (BLANK) 


PUT FLTENG 
GET DOCNUM_ UPDATE = DOCNUM, FLTENG, ALL 
END 
CLOSE FLTENG 
FIELD TO UPDATE = DONE; 


1 KKKKKKKKKKKKKKK EXCEPTION CODE LOGIC XXX XKKKKKKKKKE 
PKK KKK KKRKKKKKKEKKKEKEKKEEKK RULE 2 KEKKKKKKKKKKKKKKKKKE 


!' change exception code from X (canceled flight) 


RULE 
ihe 


THEN 


EXCEPTION RULE 2 


FIELD TO UPDATE = EXCEPTION CODE AND 
EXCD RULE = UNKNOWN AND 

EXCD NEW <> X AND 

Exepm—s. 


EXCE) KUEES— RUE 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, EXCD 


DOCNUM = (DOCNUM_ UPDATE) 
RESET EXCD 
EXCD = (EXCD_ NEW) 


RESET MSN1_1 

FIND MSN1_1 

RESET MSN11_ VALID 
FIND MSN11_ VALID 


! find mission code 1 position 2 


ens 

RESET MSN1_ 2 

FIND MSN1 2 

RESET MSN12_ VALID 
FIND MSN12 VALID 


! find mission code 1 position 3 


CLS 

RESET MSN1_ 3 

FIND MSN1_ 3 

RESET MSN13_VALID 
FIND MSN13_VALID 


We 


Cins 
find mission 1 hours 
REOoG): CHECK 
FIND CHECK 
TEMPHRS1 
TEMPHRS2 
TEMPHRS 3 
TOTHRS = 72.0 
SUBTOTAL = 0 
RESET HRS1 VALID 
FIND HRS1 VALID 
find mission code 2 position 1 
Cis 
RESET MSN21 VALID 
FIND MSN21 VALID 
find mission code 2 position 2 
CLs 
RESET MSN22 VALID 
FIND MSN22 VALID 
find mission code 2 position 3 
Clis 
RESET MSN23 VALID 
FIND MSN23 VALID 
GLS 
find mission 2 hours 
RESET HRS2 VALID 
FIND HRS2 VALID 
find mission code 3 position 1 
Gis 
RESET MSN31_ VALID 
FIND MSN31 VALID 
find mission code 3 position 2 
ELS 
RESET MSN32_ VALID 
FIND MSN32 VALID 
find mission code 3 position 3 
Coliys 
RESET MSN33 VALID 
FIND MSN33_ VALID 
CLS 
find mission 3 hours 
RESET HRS3 VALID 
FIND HRS3 VALID 
els 
find total flights 
RESET TOTFLT VALID 
FIND TOTFLT VALID 
CLS 
find ship/field operations code 
RESET OPS VALID 
FIND OPS VALID 


0 
0 
0 


a 


Cis 
find catapult/jato launches as necessary 
GET ALL, ORGAN, CATSJATO 
RESET CJ_VALID 
FIND CJ VALID 
CLOSE ORGAN 
Cis 
find airlift mission number as necessary 
GET ALL, ORGAN, AIRLIFT 
RESET ALR te abe 
FIND AIRED: TT VAnie 
CLOSE ORGAN 
CIES: 
find number of hoists 
RESET NUMHOIST VALID 
FIND NUMHOIST VALID 
append new record to flight database 
PUT EF LIGhT 
CLOSE FLIGHT 
find engine hours for aircraft on flight 
GET SIDE = (SIDENUM), AIRCRAFT, ENGINES 
CLOSE AIRCRAFT 
RESET UPDATE ENGHRS VALID 
FIND SUPDATERENGHR sie 
CES 
FIELD TO UPDATE = DONE; 


kkkkkkkkkkkkkkKK EXCEPTION CODE LOGIC *XXKKKKKKKKKKK 
KAEKKKKKKKKKKEKKKKKEKKEK RULE 2D KRKKKEKKKKEKKKKKKKKKKKK 
change exception code from a value not X to a value 
not X 


RULE EXCEPTION RULE 3 


IF 
FIELD TO UPDATE = EXCEPTION CODE AND 
EXCD RULE = UNKNOWN AND 
EXCD NEW <> X AND 
EXCD com 
THEN 
EXCD RULE =e uROE 
CLS 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
EXCD = (EXCD NEW) 
PUT FLIGHT 
CLOSE FLIGHT 
Gus 


FIELD TO UPDATE = DONE; 


kkkkKKKKKKKKKKKE UPDATE MISSION CODE 1] KXRKRKKKAKAKKKKKKKKEK 


RULE UPDATE MISSION CODE 1 
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1s 
FIELD TO UPDATE = MISSION_CODE_1 
THEN 
UPDATE COMPLETED = YES 
! display current mission code 1l 
DISPLAY “THE MISSION NUMBER 1 CODE IS CURRENTLY 
{MSN1_1}{MSN1_2}{MSN1_ 3} 


PRESS ANY KEY TO CONTINUE~" 


' find mission code 1 position 1 
els 
GET DOCNUM_UPDATE = DOCNUM, FLIGHT, EXCD 
RESET EXCD VALUE 
FIND EXCD VALUE 
! find mission code 1 position 1 
RESET MSN1_1 
FIND MSN1_1 
RESET MSN11 VALID 
FIND MSN11 VALID 
! find mission code 1 position 2 
eli 
RESET MSN1_ 2 
FIND MSN1 2 
RESET MSN12 VALID 
FIND MSN12 VALID 
! find mission code 1 position 3 
CS) 
RESET MSN1_3 
FIND MSN1_ 3 
RESET MSN13 VALID 
FIND MSN13 VALID 
LS 
! from new mission code 1 determine logic to keep database 
! in a valid state 
RESET MISSION CODE1 RULE 
FIND MISSION CODE1 RULE; 


1 xkkxkkxkxkxxkxkkxzzkkKK MISSION CODE 1 LOGIC XxX RKKKKKKKKK 
PAK KKKKKKKAKAKKEKEKEKEKEK RULE ] RRA KAKKKKKKAKAEKKKKKK 


! exception code is X 


RULE MISSION CODE _1 RULE 1 
IF 


FIELD _TO UPDATE = MISSION CODE 1 AND 
EXChas o. 


Ue 


THEN 


MISSION CODE? RUBE {Use 
PUY beer. 

CLOSE. FLIGhHE: 

FIELD StOSUPDATE, — DoONEy 


kkkkkkkkkkkKKKKK MISSION CODE 1 LOGIC **®KKKKKKKKKEK 
KAKKKKKKKKKKKKKKKKKKKKK RULE QQ KRKKKKKKKKKKKKKKKKKEK 


! 
! 
!' mission code 1 position 1 is 6 and exception code 
1 


RULE 
is 


THEN 


is not X 
MISSION CODE 1 RULE 2 
FIELD TO UPDATE = MISSION CODE 1 AND 
MSN1_1 = 6 AND 
XCD. “<> 2x 


MISSION CODE] RUE —"“USsE 
Cis 


! find mission 1 hours 


RESET CHECK 
FIND CHECK 
TOTAL = 0Q 

REE HRS! Vat 
FIND HRS1 VALID 
RESET MSN2_ 1 
other mission codes allowed 
MSN2_1 = (BLANK) 
RESET MSN2_ 2 
MSN2_ 2 = (BLANK) 
RESET MSN2_ 3 
MSN2_3 = (BLANK) 
RE Sirens 2 

HRS2 = (BLANK) 
RESET MSN3 1 
MSN3_1 = (BLANK) 
RESET MSN3 2 
MSN3_2 = (BLANK) 
RESET MSN3 3 
MSN3_3 = (BLANK) 
Reid Hino 

HRS3 = (BLANK) 
PUT FLIGHT 
CLOSE FLIGHT 


! update engine hours for aircraft 


RESET MISSION1 ENGHRS VALID 
FIND MISSION1_ENGHRS VALID 
FIELD TO UPDATE = DONE; 


! loop to update engine hours resulting from updating 
! mission code 1 when mission code 1 position 1 is 6 
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! and exception code is not equal to X 


RULE UPDATE MISSION 1 ENGINE HOURS 


IF 

MSN1_1 = 6 AND 

EXCD <> X AND 

MISSION1 ENGHRS VALID = UNKNOWN AND 

FIELD TO UPDATE = MISSION CODE _1 
THEN 

MISSION1_ ENGHRS VALID = TRUE 

sail 

GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 
ALL WHILETRUE ENGNUM <> UNKNOWN THEN 


RESET ENGHRS 

FIND ENGHRS 

RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 
Vee aac |) 

PUT FLTENG 

Gis 

GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), 
FLTENG, ALL 
END 

CLOSE FLTENG; 


kkkkkkkkkkkkkkK MISSION CODE 1 LOGIC *xKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKEK RULE 3 RAKKKKKKKKKKKKKKKKKK 


! 
! 
! mission code 1 position 1 is not 6 and exception code 
! is not X 


RULE MISSION CODE 1 RULE 3 


ie 
FIELD TO UPDATE = MISSION CODE 1 AND 
MSN1_1 <> 6 AND 
mxXCD <> X 
THEN 
MISSION _CODE1 RULE = USED 
IP We Pavenles Mk 


CEOoh FREIGHT 
FIELD TO UPDATE = DONE; 


1 kkxkkkxkxkkxkkkkk UPDATE MISSION HOURS 1] **kKKKKKKKKKKKK 


RULE UPDATE HRS1 


IF 
FIELD TO UPDATE = MISSION 1 HOURS 
THEN — 
UPDATE COMPLETED = YES 
TOTAL = 0 


GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
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RESET EXCD_ VALUE 
FIND EXCD VALUE 
! find if mission hours 1 is valid 
RESET UPDATE HRS1 VALID 
FIND UPDATE HRS1 VALID 
PU FLIGhs 
CLOSE FE hich 
! loop to update ENGINE records after change to mission 
! hours 1 
GET SIDENUM = SIDE, AIRCRAFT, ENGINES 
CLOSE AIRCRAFT 
Y = 1 
WHILETRUE UPDATE HRS1 VALID <> FALSE AND Y <= (ENGINES) 
THEN 
GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), 
PREENG aie 
RESET ENGHRS 
FIND ENGHRS 
!' find if engine hours is valid 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 


Y = Gy 71) 
PUT FLTENG 
CLS 


END 
CLOSE FLTENG 
PLE LD TOUR D A lem PONE: 


| kxzakkkkkkkkkkkkK UPDATE MISSION CODE 2 xKxwxxxkkkkkkkke 


RULE UPDATE MISSION CODE 2 
IF 
FIELD TO UPDATE = MISSION CODE 2 
THEN 
UPDATE COMPLETED = YES 
' display current mission code 2 
DISPLAY "THE MISSION NUMBER 2 CODE IS3@URRETE 
{1MSN2_1}{1MSN2_ 2}{1MSN2_ 3} 


PRESS ANY KEY TO CONDE 


! find mission code Z pectertene! 
Cis 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
CEOSE FrEiGHs 
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TOL = HRS!) 
! determine if you are allowed to update mission code 2 
RESET MISSION CODE2 RULE 
EP UND Misstonm CODE2 RULE 
! from new mission code 2 determine logic to keep database 
! in a valid state 
RESET MISSION 2 VALUE 
FIND MISSION _ De _ VALUE 
EIEED TO _ UPDATE = DONE; 


1 aAxAKKKKKKKKKKKKK MISSION CODE 2 ALLOWED ***kkkKKKKKK 
! mission code 2 not allowed if exception code is X 
! or mission code 1 position 1 is equal to 6 


RULE MISSION CODE 2 RULE 


IF 
FIELD TO UPDATE = MISSION CODE 2 AND 
EXCD = X OR 
MSN1_1 = 6 

THEN 


! mission code 2 not allowed 
! display message 
MISSION CODE2 RULE = NOT _USED 
DISPLAY " YOU ARE NOT ALLOWED TO ENTER A MISSION CODE 
FOR ONE OF THE FOLLOWING REASONS: 
Ll. BEXCBPTION CODE = X 
2. MISSION CODE 1 BEGINS WITH A 6 


PRESS ANY KEY TO CONTINUE 


~ tt 


CLS 
CLOSE FLIGHT 
ELSE 
! mission code 2 allowed 
MISSION CODE2 RULE = USED 
GET DOCNUM _ UPDATE = DOCNUM, FLIGHT, ALL 
! find mission code 2 position 1 
RESET MSN2 1 
RESET MSN2 2 
RESET MSN2 3 
RESET MSN21 VALID 
FIND MSN21 VALID 
! find mission code 2 position 2 
Clips 
RESET MSN22 VALID 
FIND MSN22 VALID 
! find mission code 2 position 3 
CLS 
RESET MSN23 VALID 
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FIND MSN23 VALID 
PUSS FY LIGH® 
CUGSE Feuer, 


1 KKKKKKKKKKKKKKK MISSION CODE 2 LOGIC **XRXKKKKKKKKEK 
PKA KKKKAKRAKAKRAKKKEKKEKEKEK ROLE 1 RARKKKKKKKKKKKKKKEKE 


RULE 
Te 


THEN 


new mission code 2 is null 
MISSION CODE2 VALUE RULE1 
FIELD TO UPDATE = MISSION CODE 2 AND 
MISSION CODE2 RULE = USED AND 
SKIP = YES 


MISSION 2 VALUE = MISSING 
GET DOCNUM_UPDATE = DOCNUM, FLIGHT, ALL 


! remove mission code 2, 3 along with mission hours 2, 3 


RESET MSN2_ 2 
MSN2_ 2 = (BLANK) 
RESET MSN2_ 3 
MSN2_3 = (BLANK) 
RESET HRS2 

HRS2 = (BLANK) 
RESET MSN3 1 
MSN3_1 = (BLANK) 
RESET MSN3 2 
MSN3_2 = (BLANK) 
RESET MSN3 3 
MSN3_3 = (BLANK) 
RESET HRS3 

HRS3 = (BLANK) 
PUT FLIGHT 
CLOSE FLIGHT 
vel 


! loop to update ENGINE records 


GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 
cae 
WHILETRUE ENGNUM <> UNKNOWN THEN 
RESET ENGHRS 
FIND ENGHRS 
RESET ENGHRS VALID 
RESET ENGHRS_ LOOP 
FIND ENGHRS LOOP 
eer (02 jal 
PUT FLTENG 
CLS 
GET DOCNUM_UPDATE = DOCNUM AND ENGNUM = (Y), 
FLTENG, ALL 
END 
CLOSE FLTENG; 
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1 xAxkkkKKKKKKKKKKK MISSION CODE 2 LOGIC **KKKKKKKKKKKK 
L AKKKKKKKKAKKKKKKKEKKKKK RULE 2 KeKKKKAKKKKKEAEKKKKK KKK 


! replace current mission code 2 


RULE MISSION CODE2 VALUE RULE2 


IF 
FIELD TO UPDATE = MISSION CODE 2 AND 
MISSION CODE2 RULE = USED AND 
TOTAL <> (HRS1 + HRS2 + HRS3) and 
SKIP = NO 

THEN 


MISSION 2 VALUE = NOT MISSING 

GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
PUT FLIGHT 

CLOSE FLIGHT; 


1 KAKKKKKKKKKKKKK MISSION CODE 2 LOGIC KKK AKKKKKKKKKEK 
PKK HAKKAR KKAAKKHEAKEEK RULE 3 KAKKKAKKKKAKKAKKKEKK 


! mission code 2 was previously null 


RULE MISSION CODE2_ VALUE RULE3 


IF 
FIELD TO UPDATE = MISSION CODE 2 AND 
MISSION CODE2 RULE = USED AND 
TOTAL = (HRS1) AND 
SKIP = NO 
THEN 


MISSION 2 VALUE = NOT MISSING 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
(enie 
RESET CHECK 
FIND CHECK 
TEMPHRS1 
TEMPHRS2 
TEMPHRS3 
MORTARS = /2.0 
SUBTOTAL = 0 
! find mission 2 hours 
RESET HRS2 
FIND HRS2 
RESET TEST HRS2 
WHILETRUE eed SZ = UNKNOWN OR TES TenES Z —eole CRUE 
THEN 
!' find if mission hours 2 is valid 
RESCH EST HRS2 
FIND TEST HRS2 


0 
0 
0 


END 
CS 
PULSE LlGnr 
CLOSE FLIGHT 
! loop to update ENGINE records 


51.3) 


Y= 
GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 
ALL 
WHILETRUE ENGNUM <> UNKNOWN THEN 
RESET ENGHRS 
FIND ENGHRS 
! find if engine hours is valid 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 
Y =.(Y sei) 
PUT FLTENG 
Cis 
GET DOCNUM UPDATE = DOCNUM AND ENGNUMS=s ae 
FLTENG, ALL 
END 
CLOSE FLTENG; 


1 kAKKKAKAKKKKKKKK MISSION CODE 2 LOGIC 2xRRAKKKKKKKKE 
PAK A KKK KKK KRKEKEKEK RULE GQ REAR ARKKKKKK 


! mission code 2 is not allowed 


RULE MISSION CODE2 VALUE RULE4 


We 
FIELD TO UPDATE = MISSION CODER © 
MISSION CODE2 RULE = NOT USED 
THEN 
MISSION 2 VALUE = NOT REQUIRED 
Clits: 


1 kxkkkkKKkKKKKKKKKX UPDATE MISSION HOURS 2 KRXKKKKAKKKKKKE 


RULE UPDATE HRS2 
Ie 
FIELD TO UPDATE = MISSION 2 HOURS 
THEN 
UPDATE RC OME EVER (= sven 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
TOTAL = (HRS1) 
CHECKSUM = (HRS1 +HRS2) 
RESET EXCD VALUE 
FIND EXCD_VALUE 
!' find if mission hours 2 is valid 
RESET UPDATE _HRS2 VALID 
FIND UPDATE HRS2 VALID 
PUT FilGa 
CLOSE ERICH. 
! loop to update ENGINE records 
Y= 1 
GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 
ALL 
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WHILETRUE ENGNUM <> UNKNOWN AND UPDATE _HRS2 VALID <> 
FALSE 
THEN 
RESET ENGHRS 
FIND ENGHRS 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 
oS se ea) 
PUT FLTENG 
CLS 
GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), 
FLTENG, ALL 
END 
CLOSE FLTENG 
FIELD TO UPDATE = DONE; 


| kaekkxkkxzkkxkkkKK UPDATE MISSION CODE 2 *kkkkkkkKKKKKKK 


RULE UPDATE MISSION CODE 3 
103 
FIELD TO UPDATE = MISSION CODE_3 
THEN 
UPDATE COMPLETED = YES 
! display current mission code 3 
DISPLAY "THE MISSION NUMBER 3 CODE IS CURRENTLY 
feroNS 1}{1MSN3 2}{1MSN3 3} 


PRESS ANY KEY TO CONTINUE~" 


Mecanad mission code 3 position 1 
‘Cubs 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
CLOSE FLIGHT 


TOTAL1 = (HRS1) 
LOTAGZ = (HRS] +7 HRSZ2) 
TOTAL = (TOTAL2) 


! determine if you are allowed to update mission code 3 
RESET MISSION CODE3 RULE 
FIND MISSION CODE3 RULE 
! from new mission code 3 determine logic to keep database 
! in a valid state 
RESET MISSION 3 VALUE 
FIND MISSION 3 VALUE 
FIELD TO UPDATE = DONE; 
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| kerkkxxkkkkkxkxk*zkk MISSION CODE 3 ALLOWED ****eexexeakek 
!' mission code 3 not allowed if exception code is X 

! or mission code 1 position 1 is equal to 6 or 

' mission code 2 is null 


RULE MISSION CODE 3 RULE 


IF 
FIELD TO UPDATE = MISSION CODE 3 AND 
EXCD == mon 
MSN1_1 = 6 OR 
TOTAU2: = Menon ag) 
THEN 


! mission code 3 is not allowed 
! display message 
MISSION CODE3 RULE = NOT USED 
DISPLAY " YOU ARE NOT ALLOWED TO ENTER A MISSION CODE 
FOR ONE OF THE, EBOLLOWING REASONS ie 
EACEPTION CODE, ——% 
2. MISSION CODE 1 BEGINS WITH A 6 
3. THERE IS NO MISSTHON’ 2 Cops 


PRESS ANY KEY TO CONTINUE 


Cis 
CLOSE FLIGHT 
ELSE 
!' mission code 3 is allowed 
MISSION CODE3 RULE = USED 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
! find mission code 3 position 1 
RESET MSN3_ 1 
RESET MSN3 2 
RESET MSN3_ 3 
RESET MSN31_ VALID 
FIND MSN31 VALID 
!' find mission code 3 position 2 
Cis 
RESET MSN32 VALID 
FIND MSN32 VALID 
! find mission code 3 position 3 
CES 
RESET MSN33 VALID 
FIND MSN33 VALID 
PUT FLIGHT 
CLOSESE LIGHE; 


| kkekkkkkkkkkkkkE MISSION CODE 3 LOGIC #XRKKAKKKKKKKEK 


KKK KKKKAKKAKKKEKEKEKAKKKHE RULE | RRR KKKKAKKKEKKKKKKK 
' mission code 3 is null 
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RULE 
cE 


THEN 


MISSION CODE3 VALUE RULE1 


FIELD TO UPDATE = MISSION CODE 3 AND 
MISSION CODE3 RULE = USED AND 
SKIP AGAIN = YES 


MISSION 3 VALUE = MISSING 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
RESET MSN3_ 2 


! all related flight attributes are null 


MSN3_ 2 = (BLANK) 
RESET MSN3_ 3 
MSN3_3 = (BLANK) 
RESET HRS3 

HRS3 = (BLANK) 
RESET MSN3 1 
PUT FLIGHT 
CLOSE FLIGHT 


! loop to update ENGINE records 
ya 


= il 
GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 
ALI 
WHILETRUE ENGNUM <> UNKNOWN THEN 
RESET ENGHRS 
FIND ENGHRS 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 
Ce Cae 
PUT FLTENG 
Cie 
GET DOCNUM_ UPDATE = DOCNUM AND ENGNUM = (Y), 
FLTENG, ALL 
END 
CLOSE FLTENG; 


1 KAKKAKKKKKKKKKKK MISSION CODE 3 LOGIC 4X XRXKKAKKAKKK 
PKK KAKA KAKKKAKAKAEKEKK RULE 2 KeKKKAKAKAKAKKKKKEK 


RULE 
re 


THEN 


replace current mission code 3 
MISSION _CODE3 VALUE RULE2 


FIELD TO UPDATE = MISSION CODE 3 AND 
MISSION CODE3 RULE = USED AND 

TOTAL2 <> (HRS1 + HRS2 + HRS3) and 
SKIP_AGAIN = NO 


MISSION 3 VALUE = NOT MISSING 

GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
PUT FLIGHT 

CLOSE FLIGHT; 
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1 xkkkkkkkkkKKKKKK MISSION CODE 3 LOGIC ***KKKKKKKKKKK 
1 KEKKKKKKKKKKKKKKKKKKKEK RULE 2 KRKKKKKKKKKKKKKKKKEKK 


! mission code 3 was previously null 


RULE MISSION CODE3 VALUE RULE3 


IF 
FIELD TO UPDATE = MISSION CODE 3 AND 
MISSION CODE3 RULE = USED AND 
TOTAL2 = (HRS1 + HRS2 +HRS3) AND 
SKIP = NO 

THEN 


MISSION 3 VALUE = NOT MISSING 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
CES 

!' find mission 3 hours 
RESED CHECK 
FIND CHECK 
TEMPHRS1 
TEMPHRS2 
TEMPHRS3 
TOTHRS = ="72.0 
SUBTOTAL 0 

' find mission 3 hours 
RESE? HRSs 
FIND HRS3 
RESET TE Stank S 3 


0 
0 


foi oe tl 


WHILETRUE TEST HRS3 = UNKNOWN OR TEST _HRS3 = NOT TRUE 


THEN 
RESET TEST HRS3 
FIND TEST HRS3 
END 
Cis 
PUT FLIGHT 
CLOSE FLIGHT 
! loop to update ENGINE records 
Y = 1 


GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 


A 
WHILETRUE ENGNUM <> UNKNOWN THEN 
RESET ENGHRS 
FIND ENGHRS 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 
ye M2 dL) 
PUT FLTENG 
oI 
GET DOCNUM_ UPDATE = DOCNUM AND ENGNUM = (Y), 
FLTENG, ALL 
END 
CLOSE FLTENG; 
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1 xkkkkAKKKKAKKKKKK MISSION CODE 3 LOGIC **xXRRKKKKKKKKR 
PKK KRHA AKKHKAKAKARKEK RULE 2 KREKKKKKKKKAKKKKKKEEK 


! mission code 3 not allowed 


RULE MISSION CODE3 VALUE RULE4 


IF 
FIELD TO UPDATE = MISSION CODE 3 AND 
MISSION CODE3 RULE = NOT_USED 
THEN 
MISSION 3 VALUE = NOT REQUIRED 
Gigs; 


l kekkxkkkxkxexkxkkkk UPDATE MISSION HOURS 3 *®*xKKKKKKKKK EK 


RULE UPDATE _HRS3 
Ia 
FIELD TO UPDATE = MISSION _3 HOURS 
THEN 
UPDATE COMPLETED = YES 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 
! display current mission hours 3 
Daoe LAY  "{HRS3 }a> CURREN@EY]=THE MISSION 3 HOURS. 
wt 


TOTAL1 = (HRS1 + HRS2 + HRS3) 
TOTAL = (HRS1 + HRS2) 
CHECKSUM = (HRS1) 


RESET EXCD VALUE 
FIND EXCD VALUE 
' find if mission hours 3 is valid 
RESET UPDATE HRS3 VALID 
FIND UPDATE HRS3 VALID 
PUT FLIGHT 
CLOSE ssh LGHr 
! loop to update ENGINE records 
i 


= 1 
GET DOCNUM UPDATE = DOCNUM AND ENGNUM = (Y), FLTENG, 
ALL 
WHILETRUE ENGNUM <> UNKNOWN AND UPDATE HRS3 VALID <> 
FALSE THEN 


RESET ENGHRS 
FIND ENGHRS 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 
5 cL) 
PUT FLTENG 
CLS 
GET DOCNUM_UPDATE = DOCNUM AND ENGNUM = (Y), 
FLTENG, ALL 
END 
CLOSE FLTENG 


=k 


FIELD TO UPDATE = DONE; 
1 KAKKAKAKKKKKKKKK UPDATE TOTAL FLIGHTS *XKAKAKAKAKKKKKK 


RULE UPDATE TOTAL FLIGHTS 
Je 
FIELD TO UPDATE = TOTAL FLIGHTS 
THEN 
UPDATE (COMPLETED aus. 
!' display current total flight 
DISPLAY "{TOTFLT} IS CURRENTLY THE TOTAL FLIGHTS. 
w 
CLOSE FLIGHT 
!' find if total flight is valid 
RESET UPDATES Fetrit Vari 
FIND UPDATE TOTELE Vary 
CES 
EYE EDS TO LUPDATE == Boney 


| xxkxkkkkkxXkkk* UPDATE SHIP/FIELD OPERATIONS ****kkkKKKKKKK 


RULE UPDATE SHIP FIELD OPERATIONS CODE 
1 
FIELD TO UPDATE = SHIP FIELD OPERATIONS CODE 
THEN 
UEDA TEC OME he >) = ss) Ee 
!' display current ship/field operations code 
DISPLAY "{OPS} IS CURRENTLY THE SHIP/FIELD OPERATIGCN. 
CObE: 
CLOSE FPLIGH® 
!' find if ship/field operations code is valid 
Ripe UPDATE VOr oa. ory 
FIND UPDATE OPS VALID 
Cire 
FIELD TO UPDATE = DONE; 


| xkkkkkkkAAKE UPDATE CATAPULT/JATO LAUNCHES ***xxxxxkkKaKKK 


RULE UPDATE _CATAPULT JATO LAUNCHES 
IL} 
FIELD TO UPDATE = CATAPULT JATO LAUNCHES 
THEN on : - 
UPDATE COMPLETED = YES 
! display current catapult/jato launches 
DISPLAY "{CJ} IS CURRENTLY THE NUMBER OF CATAPULT/JATO 
LAUNCHES. 
Un 


CLOSE FLIGHT 

!' find catapult/jato launches as necessary 
GET ALL, sORGAN  CAlcon Te 

! find if cj is valid 


oe 


RESET UPDATE CJ_VALID 
FIND UPDATE _ eis VALID 
CLOSE ORGAN — 

Cis 

Ree lPe LOVUERDATE = DONE; 


| kkkkkkkKKKKA UPDATE AIRLIFT MISSION NUMBER *** kkk RK ARKH 


RULE UPDATE AIRLIFT MISSION NUMBER 
ae 
PRELD TO UPDATE = AIRLIFT MISSION NUMBER 
TEN 
DEPoTe COMPETED = YES 
! display current airlift mission number 
DISPLAY “{MISNUM} IS CURRENTLY THE AIRLIFT MISSION 
NUMBER. 
et 
CEOSE FLIGHT 
! find airlift mission number as necessary 
GET ALL, ORGAN, AIRLIFT 
! find if airlift mission number is valid 
RESET UPDATE AIRLIFT VALID 
FIND UPDATE AIRLIFT VALID 
CLOSE ORGAN 
Ciss 
FIELD TO UPDATE = DONE; 


1 xkxxkkxkxkkxkxk*k*xk UPDATE NUMBER OF HOISTS *kRKKKKKKKKKKK 


RULE UPDATE NUMBER OF HOISTS 
105 
FIELD TO UPDATE = NUMBER OF HOISTS 
THEN 
UPDATE COMPLETED = YES 
! display current number of hoists 
DISPLAY "{NUMHOISTS} IS CURRENTLY THE NUMBER OF HOISTS. 
tt 
CLOSE FLIGHT 
! find if number of hoists is valid 
RESET UPDATE NUMHOISTS VALID 
FIND UPDATE _NUMHOISTS _VALID 
CLS 
FIELD TO UPDATE = DONE; 


| kxkxzkkxkxx*x*k*k UPDATE ENGINE HOURS **#xxkxKKKKKKK 


RULE UPDATE ENGINE HOURS 
IF 

FIELD TO UPDATE = ENGINE HOURS 
THEN 

UPDATE COMPLETED = YES 
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' find if engine hours valid 
RESET UPDATE ENGINE HOURS VALID 
FIND UPDATE ENGINE HOURS VALID 
CES 
FIELD TO UPDATE = DONE; 


FE KKEKKKKKKEKKEKKEKEKEKKKKK DY PDATE DONE KRKKKKKKKKKKKKKKKKKKEKKE 


RULE DONE 
IF 

FIELD TO UPDATE = DONE 
THEN 

UPDATE COMPLETED = YES; 


1 KKKKKAKKKKKKKKKKKKKKEKKDELETE OPERATIONS XXX KKKKKKKKKKKKKKKK 


RULE, DELETE DOCUMENT 
abs 
WHICHTASK = DELETES Deeh 
THEN 
TASKCOMPLETED = YES 
MENU DOCNUM DELETE, ALL, FLIGHT, DOCNUM 
!' ask user for document number from menu of document numbers 
FIND DOCNUM_ DELETE 
MRESET DOCNUM DELETE 
' ask user to confirm delete operation 
RESET CONTINUE 
PIND CONTANOE 
' find if any documents to delete 
RESET DELETE 
FIND DELETE; 


! determine if there are any flight records to delete 


RULE DELETE 
TE 
DOCNUM DELETE = NONE OR 
CONTINUE = NO AND 
DELETE = UNKNOWN 
THEN 
' no records to delete or user has changed mind 
!' display message 
DELETE = NO 
DISPLAYS NO FLIGHT RECORD DELETED. 


PRESS ANY KEY TO CONTINUE 
eal 
CES 
ELSE 
! records available to delete 
' and user has confirmed deletion 
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DELETE = YES 
GET DOCNUM DELETE = DOCNUM, FLIGHT, ALL 
' all attributes are set to null 


DOCNUM = (BLANK) 
EXCD = (BLANK) 
MSN1_1 = (BLANK) 
MSN1_2 = (BLANK) 
MSN1_3 = (BLANK) 
HRS1 = (BLANK) 
MSN2_1 = (BLANK) 
MSN2_2 = (BLANK) 
MSN2 3 = (BLANK) 
HRS2 = (BLANK) 
MSN3_1 = (BLANK) 
MSN3 2 = (BLANK) 
MSN3_3 = (BLANK) 
HRS3 = (BLANK) 
TOTFLT = (BLANK) 
OPS = (BLANK) 

CJ = (BLANK) 
MISNUM = (BLANK) 
NUMHOISTS = (BLANK) 
REMARKS = (BLANK) 
SIDENUM = (BLANK) 
PUT FLIGHT 


CLOSE FLIGHT 
' Cascade delete feature 
' all associated records in with FLIGHT set to null 
GET DOCNUM DELETE = DOCNUM, FLTENG, ALL 
WHILETRUE ENGNUM <> UNKNOWN THEN 
DOCNUM (BLANK ) 
ENGNUM (BLANK ) 
ENGHRS (BLANK) 
PUT FLTENG 
GET DOCNUM DELETE = DOCNUM, FLTENG, ALL 
END 
CLOSE FLTENG; 


1 KKKKKKKKKKAKKKKKKKKKKEK VIEW OPERATION #2 XKAKKAKKKKKKKKKKEEK 


RULE VIEW DOCUMENT 
IF 
WHICHTASK = DISPLAY RECORD 
THEN = 
RESET ALL 
WHICHTASK = DISPLAY RECORD 
FORMAT HRS1, 4.1 
FORMAT HRS2, 4.1 
FORMAT HRS3, 4.1 
FORMAT ENGHRS, 4.1 
TASKCOMPLETED = YES 


25 


RESET DOCNUM VIEW 

MENU DOCNUM VIEW, ALL, FLIGHT, DOCNUM 
! ask user for document number 

FIND DOCNUM VIEW 

MRESET DOCNUM VIEW 
! find if any flight records to view 

RESET VIEW 

FIND VIEW; 


! determine if there are any documents to view 


RULE VIEW 
JQo 
DOCNUM VIEW = NONE AND 
VIEW = UNKNOWN 
THEN 
!' no flight records to view 
VIEW = NO 
DISPLAY " THERE IS NO FLIGHT RECORD  iGe Tre 


PRESS ANY KEY TO CONTINUE 
~ tt 
Cis 
ELSE 
! flight record available to view 
VIEW = YES 
GET DOCNUM VIEW = DOCNUM, FLIGHT, ALL 
SIDENO = (SIDENUM) 
CEOSE FLIGHT 
GET SIDENO = SIDE, AIRCRAFT, ALL 
CLOSE AIRCRAFT 
GET ALL, ORGAN, ALL 
CLOSE ORGAN 
Cl 
! format for display 
DISPLAY " NAVAL AIRCRAFT FLIGHT RECORD 


NO. {DOCNUM} 
AIRCRAFT DATA 

{3SIDENUM} {1EXCD} {6BUNO} {4TEC} {30RG} 
{1MSN1_1}{1MSN1_2}{1MSN1_3} {4HRS1)} 
{1MSN2_1}{1MSN2_2}{1MSN2 3} {4HRS2} 
{1MSN3_1}{1MSN3_2}{1MSN3_3} {4HRS3} {2SUPTCD}  {2TOTFLT} 


{Lepsn {2CJ} SIDE E BUNO/SER TEC ORG MSN1 HRS1 MSN2 
HRS2 MSN3 HRS3 SUPT TOT O CAT/ NO. X 
TOTAL MISSION REQ DATA CODE FLT P JATO CG 
S 
D 
{ SMISNUM} { 2NUMHOISTs} 
AIRLIFT MISSION NO. NO. 
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ISUGME sy Jit 


GET DOCNUM VIEW = DOCNUM, FLTENG, ALL 
WHILEKNOWN ENGNUM 
DISPLAY " ENGINE NO{ENGNUM} ENGINE HOURS 
{ 4ENGHRS }" 
GET DOCNUM VIEW = DOCNUM, FLTENG, ALL 
END 
DISPLAY " 


ERtiooeoNyY KEY LOmeONTINUE....~" 
CLOSE FLTENG 
CSS 


l kekkkakkkakkkkkkkkkKK EXIT OPERATION **k kkk KKK KKK KK KR KK 


RULE EXIT 
Jug 

WHICHTASK = EXIT 
THEN 

TASKCOMPLETED = YES; 


! rule to determine if exception code within record is 
! null and assign value BLANK to it 


RULE EXCEPTION CODE VALUE 
IF 
WHICHTASK = UPDATE RECORD AND 
EXCD = UNKNOWN 
THEN 
EXCD VALUE = NEEDED 
RESET EXCD 
EXCD = (BLANK) 
ELSE 
EXCD VALUE = NOT NEEDED; 


! rule to check value of exception code is equal to X 
! and mission code 1 position 1 is equal to 6 


RULE CHECK VALUE 
IF 
MSN1_1 = 6 OR 
IEC) SOx 
THEN 
CHECK = YES 
ELSE 


CHECK = NO; 


! rules to determine if repeating attributes 
! (mission code n, nt1,...) should be skipped 


oF 


RULE 
Jz 


TEST UNKNOWN1 


MSN2_1 

MSN2_1 
THEN 

SKIP = YES 

SKIP AGAIN = 
ELSE 

SKIP = 


UNKNOWN OR 
(BLANK) 


YES 
NO; 


RULE 
ie 


TEST UNKNOWN2 


MSN3_1 

MSN3_1 
THEN 

SKIP AGAIN 
ELSE 

SKIP AGAIN 


UNKNOWN OR 
(BLANK) 


YES 


NO; 


lkxexxkkkkkkKK KNOWLEDGE BASE LIBRARY *****xx4KkKKKK 
|xxkxkxkkkkK DOMAIN INTEGRITY CONSTRAINTS *****2*2%%% 
! THESE CONSTRAINTS ARE DEFINED IN DATA TYPES 
|xkkxkkkKKKK COLUMN INTEGRITY CONSTRAINTS ****x4exx 
RULE EXCEPTION CODE VALID 

IF 


ExeD VAD 
THEN 


UNKNOWN 
WHILETRUE EXCD VALID = UNKNOWN THEN 
RESET TEST EXCD 
FIND TEST EXCD 
END 
EXCD VALID = TRUE; 
RULE 
IF 


COLUMN INTEGRITY EXCEPTION CODE 


THEN 


ELSE 


EXCD 
EXCD 
EXCD 
EXCD 
EXCD 


EXCD VALID = 


IPMS aC ye 
EXCD VAinnnm 


TEST EXCR®= 
DISPLAY 


C JO. 

iB) ONS 

rar ol. 

UNKNOWN OR 
(BLANK) AND 
UNKNOWN 


te th th tl ul 


VES 
TRUE 


VES 
" YOU NEED TO ENTER A VALID EXCEPTION CODE TO 
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RULE 
1% 


HEN 


RULE 
ce 


THEN 


ELSE 


RULE 
ae 


THEN 


RULE 
IWS 


THEN 


ELSE 


CONTGNUE."™ 
RESET EXCD 
FIND EXCD; 


VED MEE each PP TION CODE VALID 


FIELD TO UPDATE = 
UPDATE EXCD VALID = 


EXCEPTION CODE AND 
UNKNOWN 
WHILETRUE UPDATE EXCD VALID = UNKNOWN THEN 
RESET TEST UPDATE EXCD 
FIND TEST UPDATE EXCD 
END 
UPDATE EXCD VALID = TRUE; 


COLUMN INTEGRITY UPDATE EXCEPTION CODE 


EXCD NEW = C OR 

EXCD NEW = D OR 

EXCD NEW = X OR 

EXCD NEW = (BLANK) AND 
FIELD TO UPDATE = EXCEPTION CODE 
TEST UPDATE EXCD = YES 
UPDATE EXCD VALID = TRUE 
TcmMUPDATECEXCD = YES 


DISPLAY " YOU NEED TO ENTER A VALID EXCEPTION CODE TO 
CONTINUE." 

RESET EXCD_NEW 

FIND EXCD NEW; 


MISSION 1 POSITION 1 


MSN11 VALID = UNKNOWN 
WHILETRUE MSN11 VALID = 
RESET TEST MSN11 

FIND TEST MSN11 
END a 
MSN11 VALID = 


UNKNOWN THEN 


TRUE; 
COLUMN I NTEGRI TY _MISSION1 1_ CODE 


MSN1_ 1 >= 1 AND 
MSN1_ 1 <= 6 


TEST MSN11 = YES 
MSN11_ VALID = TRUE 
TEST MSN11 = YES 
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RULE 
Ve 


THEN 


RULE 
rE 


THEN 


ELSE 


RULE 
ie 


THEN 


ELSE 


RULE 
Ise 


THEN 


DISPLAY " YOU MUST ENTER A NUMBER FROM 1 TO 6." 
RESET MSN1_1 
FIND MSN1_1; 


MISSION IeeOot biel. 
MSN13 VALID = UNKNOWN 


WHILETRUE MSN13_ VALID = UNKNOWN THEN 
RESET TEST MSN13 
FIND TEST MSN13 
END 
MSN13_ VALID = TRUE 
DISPLAY "{MSN1_1}{MSN1_2}{MSN1_3} 
PRESS ANY KEY TO CONTINUE~"; 


TEST MISSIONIS Copia Ere 


MSN1_3 >= 0 AND 
MSN1_ 3 <= 9 


TEST MSN13 = YES 
MSN13_ VALID = TRUE 


TEST MSN13 = YES 

DISPLAY " YOU MUST ENTER A NUMBER FROM 0 TO 9." 
RESET MSN1_ 3 

FIND MSN1_ 3; 


HRS 1 VALID 

EXCD =a 

HRS1 VALID = NOT NEEDED 

RESET HRS1 

FIND HRS1 

WHILETRUE HRS1 VALID = UNKNOWN THEN 
RESET TEST HRS1 
FIND TEST HRS1 

END 

HRS1 VALID = TRUE; 

UPDATE HRS 1 VALID 


FIELD TO UPDATE = MISSION 1 HOURS AND 
po) Sx 


DISPLAY “ YOU ARE NOT ABLE TO ENTER HOURS FOR Missive 
BECAUSE THE EXCEPTION CODE IS CURRENTLY avers 
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eS a _ =< 


DE DAT Emin cweey bt D = FALSE 


ELSE 
SUBTOTAL HOURS = ((HRS2) + (HRS3)) 
ALLOWED HOURS = (72 — (SUBTOTAL HOURS) ) 
RESET HRS1 
FIND HRS1 


WHILETRUE UPDATE HRS1 VALID = UNKNOWN THEN 
RESET UPDATE TEST HRS1 
FIND UPDATE TEST HRS1 

END 

UPDATE HRS1 VALID = TRUE; 


RULE UPDATE HRS 2 VALID 


IF 
FIELD TO UPDATE = MISSION 2 HOURS AND 
CHECK = YES OR 
TOTAL = (CHECKSUM) 
THEN 
DISPLAY "YOU ARE NOT ABLE TO ENTER HOURS FOR MISSION 2 
BECAUSE: 
1. THE EXCEPTION CODE IS CURRENTLY X 
2. THE MISSION 1 CODE BEGINS WITH A 6 
3. THE MISSION 2 CODE IS MISSING 
w 
UPDATE HRS2 VALID = FALSE 
ELSE 
SUBTOTAL HOURS = ((HRS1) + (HRS3)) 
ALLOWED HOURS = (72 - (SUBTOTAL HOURS) ) 
RESET HRS2 
FIND HRS2 


WHILETRUE UPDATE HRS2 VALID = UNKNOWN THEN 
RESET UPDATE TEST HRS2 
FIND UPDATE TEST HRS2 

END 

UPDATE HRS2 VALID = TRUE; 


RULE UPDATE HRS 3 VALID 


IF 
FIELD TO UPDATE = MISSION 3 HOURS AND 
CHECK = YES OR 
TOTAL = (CHECKSUM) OR 
Homa = (TOTAL) 
THEN 
DISPLAY "YOU ARE NOT ABLE TO ENTER HOURS FOR MISSION 3 
BECAUSE: 
1. THE EXCEPTION CODE IS CURRENTLY X 
2. THE MISSION 1 CODE BEGINS WITH A 6 
3. THE MISSION 2 CODE IS MISSING 
4. THE MISSION 3 CODE IS MISSING 


UPDATE HRS3 VALID = FALSE 
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ELSE 


RULE 
Wa 


THEN 


ELSE 


RULE 


1d 


THEN 


ELSE 


RULE 


TE 


el De 


SUBTOTAL HOURS = ((HRS1) + (HRS2)) 
ALLOWED HOURS = (72 - (SUBTOTAL HOURS) ) 
RESET HRS3 

FIND HRS3 


WHILETRUE UPDATE HRS3 VALID = UNKNOWN THEN 
RESET UPDATE TEST HRS3 
FIND UPDATE TEST _HRS3 

END 

UPDATE HRS3 VALID = TRUE; 


COLUMN INTEGRITY UPDATE HRS1 


FIELD TO UPDATE = MISSION 1 HOURS AND 
HRS1 > 0.0 AND 
HRS1 <= (ALLOWED HOURS) 


UPDATE TEST oHRS) — YE 
UPDATE _HRS1 VALID = TRUE 
TOTAL = et HRS 1 mee (SUBTOTAL HOURS) ) 


UPDATE TEST HRS1 = YES 

DISPLAY " YOU MUST ENTER A NUMBER FROM 00.1 TO 
{ALLOWED HOURS}" 

RESET HRS1 

FIND HRS1; 


COLUMN INTEGRITY UPDATE HRS2 


FIELD TO UPDATE = MISSION 2 HOURS AND 
HRS2 > 0.0 AND 
HRS2 <= (ALLOWED HOURS) 


UPDATE TEST HRS2 = YES 
UPDATE HRS2 | VALID = TRUE 
TOTAL = ((HRS2) + (SUBTOTAL HOURS) ) 


UPDATE TEST HRS2 = YES 

DISPLAY " YOU MUST ENTER A NUMBER FROM 00.1 TO 
{ALLOWED HOURS}" 

RESET HRS2 

FIND HRS2; 


COLUMN INTEGRITY UPDATE HRS3 

FIELD TO UPDATE = MISSION 3 HOURS AND 
HRS3 > 0.0 AND 

HRS3 <= (ALLOWED HOURS) 

UPDATE TEST HRS3 = YES 
UPDATE HRS3 VALID = TRUE 


OZ 


ELSE 


RULE 


IL 


THEN 


ELSE 


RULE 
ie: 


THEN 


ELSE 


RULE 
lie 


THEN 


Cie — (HRS s) + (SUBTOTAL HOURS) ) 


UPDATE TEST HRS3 = YES 

DISPLAY " YOU MUST ENTER A NUMBER FROM 00.1 TO 
{ALLOWED HOURS}" 

RESET HRS3 

FIND HRS3; 


COLUMN INTEGRITY HRS1 


HRol > 0.0 AND 
HRSte<= 72.0 


TEST HRS1 = YES 
HRS1 VALID = TRUE 
EODAn =" (HRS) 


TEST HRS1 = YES 

DISPLAY " YOU MUST ENTER A NUMBER FROM 00.1 TO 72.0" 
RESET HRS1 

FIND HRS1; 


MISSION 2 POSITION 1 
CHECK = YES 


MSN21 VALID = NOT NEEDED 
SKIP = YES 
SKIP AGAIN = YES 


RESET MSN2_ 1 

FIND MSN2_1 

RESET SKIP 

FIND SKIP 

WHILETRUE MSN21 VALID = UNKNOWN THEN 
RESET TEST MSN21 
FIND TEST MSN21 

END 

MSN21 VALID = TRUE; 


COLUMN_INTEGRITY_MISSION21 


MSN2 1 >= 1 OR 


MSN2_1 = UNKNOWN OR 
MSN2_1 = (BLANK) AND 
MSN2_1 <= 5 OR 
MSN2_1 = UNKNOWN OR 
MSN2_1 = (BLANK) 


TEST MSN21 = YES 
MSN21 VALID = TRUE 


O'S 


ELSE 
TEST MSN21 = YES 
DISPLAY " YOU MUST ENTER A NUMBER FROM 1 TO 5." 
RESET MSN2_1 
FIND MSN2 1; 


RULE MISSION 2 POSITION 2 
IF 
CHECK = YES OR 
SKIP = YES 
THEN 
MSN22_ VALID = NOT NEEDED; 


RULE TEST MISSION23 CODE VALID 


es 

CHECK = YES 

SKIP = YES 
THEN 

MSN23 VALID = NOT NEEDED 
ELSE 


RESET MSN2_ 3 

FIND MSN2 3 

WHILETRUE MSN23_ VALID = UNKNOWN THEN 
RESET TEST MSN23 
FIND TEST MSN23 

END 

MSN23 VALID = TRUE 

DISPLAY "{MSN2_1}{MSN2_2}{MSN2_3} 

PRESS ANY KEY TO CONTINUE~"; 


RULE TEST MISSION23 CODE VALID 
IF 
MSN2_3 >= 0 AND 
MSN2_ 3 <= 9 
THEN 
TEST MSN23 = YES 
MSN23 VALID = TRUE 
ELSE 
TEST MSN23 = YES 
DISPLAY " YOU MUST ENTER A NUMBER FROM 0 TO 9." 
RESET MSN2_ 3 
FIND MSN2_ 3; 


RULE HRS 2 VALID 


IF 

CHECK = YES OR 

SKIP = YES 
THEN 

HRS2_ VALID = NOT NEEDED 
ELSE 


REESE shee 
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RULE 
IDS 


THEN 


ELSE 


RULE 
Og 


THEN 


ELSE 


RULE 
ce 


THEN 


FIND HRS2 

WHILETRUE HRS2 VALID = UNKNOWN THEN 
RESET TEST HRS2 
FIND TEST HRS2 

END 

HRS2 VALID = TRUE; 


COLUMN INTEGRITY HRS2 

HRS2 > 0.0 AND 

HRS2 <= 72.0 AND 

TOTHRS >= (HRS1 + HRS2 + TEMPHRS3) 


TEST HRS2 = YES 
HRS2 VALID = TRUE 


TOTAw = ((TOTAL) + (HRS2)) 

TEST HRS2 = YES 

SUBTOTAL = (TOTHRS ~— HRS1) 

DISPLAY " YOU MUST ENTER A NUMBER FROM 00.1 TO 
SUBTOTAL)" 

RESET HRS2 

FIND HRS2; 


MISSION 3 POSITION 1 


Chex = YES OR 
SKIP = YES 


MSN31 VALID = NOT NEEDED 


RESET MSN3_1 

FIND MSN3_1 

RESET SKIP AGAIN 

FIND SKIP AGAIN 

WHILETRUE MSN31_ VALID = UNKNOWN THEN 
RESET TEST MSN31 
FIND TEST MSN31 

END 

MSN31_ VALID = TRUE; 


COLUMN_INTEGRITY_ MISSION31 
MSN3_1 >= 1 OR 

MSN3_1 = UNKNOWN OR 
MSN3_1 = (BLANK) AND 
MSN3_1 <= 5 OR 

MSN3_1 = UNKNOWN OR 
MSN3_ 1 = (BLANK) 


TEST MSN31 = YES 
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MSN31 VALID = TRUE 
ELSE 
TEST MSN31 = YES 
DISPLAY " YOU MUST ENTER A NUMBER FROM 1 TO 5." 
RESET MSN3 1 


FIND MSN3 1; 


RULE MISSION 3 POSITION 2 


IF 
CHECK = YES OR 
Ste = Wes GIR 
SKIP AGAIN = YES 
THEN 


MSN32_ VALID = NOT NEEDED; 


RULE TEST MISSION33 CODE VALID 


IF 
CHECK = YES OR 
SKIP = YES OR 
SKIP AGAIN = YES 
THEN 


MSN33_ VALID = NOT NEEDED 
ELSE 

RESET MSN3_ 3 

FIND MSN3 3 

WHILETRUE MSN33 VALID = UNKNOWN THEN 
RESET TEST MSN33 
FIND TEST MSN33 

END 

MSN33_ VALID = TRUE 

DISPLAY "{MSN3_1}{MSN3_ 2}{MSN3_ 3} 

PRESS ANY KEY TO CONTINUE~"; 


RULE TEST MISSION33 CODE VALID 


IF 
MSN3_3 >= 0 AND 
MSN3_3 <= 9 
THEN 
TEST MSN33 = YES 
MSN33 VALID = TRUE 
ELSE 


TEST MSN33 = YES 
DISPLAY " YOU MUST ENTER A NUMBER FROM 0 TO 9." 
RESET MSN3_ 3 


FIND MSN3_ 3; 


RULE HRS 3 VALID 

IF 
CHECK = YES OR 
SKIP = YES OR 
SKIP AGAIN = YES 
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THEN 


ELSE 


RULE 
logy 


THEN 


ELSE 


RULE 
ce 


THEN 


ELSE 


RULE 


THEN 


HRS3 VALID = NOT_NEEDED 

RESET HRS3 

FIND HRS3 

WHILETRUE HRS3 VALID = 
RESET TEST HRS3 
FIND TEST _HRS3 

END 

HRS3 VALID = 


UNKNOWN THEN 


TRUE; 
COLUMN INTEGRITY_HRS3 


HRS3 > 0.0 AND 
HRS3 <= 72.0 AND 


TOTHRS >= (HRS1 + HRS2 + HRS3) 

TEST HRS3 = YES 

HRS3 VALID = TRUE 

TMeTte—w TOTAL) + (HRS3) ) 

Eod HRS Swe Yio 

SUBTOTAL = (TOTHRS - (HRS1 + HRS2) ) 

DISPLAY " YOU MUST ENTER A NUMBER FROM 00.1 TO 
{SUBTOTAL}" 

RESET HRS3 

FIND HRS3; 


TOTAL FLIGHTS VALID 
ECD Xx 


TOTFLT VALID = NOT NEEDED 

RESET TOTFLT 

FIND TOTFLT 

WHILETRUE TOTFLT VALID = 
RESET TEST TOTFLT 
PN TEST TOLELT 

END 

foUIreiavAL TD) — 


UNKNOWN THEN 


TRUE; 
UPDATE TOTAL FLIGHTS VALID 


EXCD = X AND 

PF hom. bee > TOTAL LE LIGHTS 

UPDATE TOTFLT VALID = NOT NEEDED 

DISPLAY " YOU ARE NOT ABLE TO ENTER TOTAL FLIGHTS FOR 
{DOCNUM UPDATE} BECAUSE THE EXCEPTION CODE IS CURRENTLY 
{EXCD} 


Os? 


PRESS ANY KEY TO CONTINUE~" 
Ginc 
ELSE 
GET DOCNUM_UPDATE = DOCNUM, FLIGHT, TOTFLT 
RESET TOTFLT 
PND) seni in 
WHILETRUE UPDATE TOTFLT VALID = UNKNOWN THEN 
RESET TEST TOTFLT 
FIND TEST TOTFLT 
END 
PUT FLIGHT 
CLOSE FLIGHT 
UPDATE TOTFLT VALID = TRUE; 


RULE COLUMN_INTEGRITY TOTFLT 
105 
TOTE aes e hp 
TOTELT <= 99 
THEN 
TEST TOLHEr —asaEe 
TOTHET VALID =e 
UPDATE TOTFLT VALID = TRUE 
ELSE 
TEST TOME bias 
DISPLAY " YOU MUST ENTER A NUMBER FROM 1 TO 99" 
RESET TOTFLT 
FIND TOTFLT; 


RULE OPS CODE VALID 


ie 

EACD = X 
THEN 

OFS VALID  — NORINEEDE 
ELSE 


WHILETRUE OPS VALID = UNKNOWN THEN 
RESET TEST OPS 
FIND TEST OPS 

END 

OPS) VALID —rRUEy 


RULE UPDATE SHIP FIELD OPS CODE VALID 
IF 
EX€D =] AN» 
FIELD _TO UPDATE = SHIP FIELD OPERATIONS CODE 
THEN 
UPDATE _OPS VALID = NOT NEEDED 
DISPLAY "YOU ARE NOT ABLE TO ENTER SHIP/FIELD 
OPERATIONS CODE FOR {DOCNUM_ UPDATE} 
BECAUSE THE EXCEPTION CODE IS CURRENTLY {EXCD} 
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PRESS ANY KEY TO CONTINUE~" 
ens 
ELSE 
GET DOCNUM UPDATE = DOCNUM, FLIGHT, OPS 
RESET OPS 
FIND OPS 
WHILETRUE UPDATE OPS VALID = UNKNOWN THEN 
RESET TEST OPS 
FIND TEST OPS 
END 
PUT FLIGHT 
CLOSE FLIGHT 
UPDATE OPS VALID = TRUE; 


RULE COLUMN INTEGRITY OPS CODE 


1 
OPS = A OR 
OPS = B OR 
OPS. = OR 
OPS = 2 
THEN 


TEST OPS = YES 
OPS VALID = TRUE 
UPDATE OPS VALID = TRUE 
ELSE 
ZHST OPS = YES 
DISPLAY " YOU NEED TO ENTER AN A, B, 1, OR 2." 


Rao Obs 

BaND OPS; 
meer CATS JATO VALID 
ing 

CATSJATO = N OR 

EXCD = X 
THEN 

CJ VALID = NOT NEEDED 
ELSE 

Ree | Col 

PEND Cd 


WHILETRUE CJ VALID = UNKNOWN THEN 
RESET TEST CJ 
FIND TEST CJ 

END 

CJ VALID = TRUE; 


RULE UPDATE _CATAPULT JATO LAUNCHES VALID 
IF 
CATSJATO = N OR 
EXCD = X AND 
FIELD TO UPDATE = CATAPULT JATO LAUNCHES 


1,01 


THEN 


ELSE 


RULE 


THEN 


ELSE 


RULE 


THEN 


Ele 


UPDATE CJ VALID = NOT NEEDED 
DISPLAY "YOU ARE NOT ABLE TO ENTER CATAPULT/JATO 
LAUNCHES FOR {DOCNUM UPDATE} BECAUSE EITHER 
1. YOUR ORGANIZATION DOES NOT DOCUMENT CATAPULT/JATO 
LAUNCHES 
2. THE EXCEPTION CODE IS CURRENTLY X 


PRESS ANY KEY TOC CONT RWE-. 
CLS 


GET DOCNUM UPDATE = DOCNUM, FLIGHT, CJ 

RESET CJ 

FIND CJ 

WHILETRUE UPDATE CJ VALID = UNKNOWN THEN 
RESET TEST CJ 
FINO RES mcd 

END 

PUT FLIGHT 

CLOSE FLIGHT 

UPDATE Cd VALID =" TRUE, 


COLUMN_INTEGRITY_CJ 


CJ >= 1 OR 

CJ = UNKNOWN OR 
CJ = (BLANK) AND 
CJ <= G8mOR 

CJ = UNKNOWN OR 
CJ = (BLANK) 


aMRSIH (Cur = Seas 
Gg VALID — TRUE 
oy yoa Cal WeML ID) = "Wee 


TEST Cie is 

DISPLAY " YOU MUST ENTER A NUMBER FROM 1 TO 99 OR 
<SPACE> FOR NONE" 

RESET CJ 

FIND CJ; 


ATRETE TM oo LONDNUME Ra eee 


AIRLIFT = N OR 
EXCD = X 


AIRLIFT VALID —)NOCTONSEREE 
RESET MISNUM 


FIND MISNUM 
AIRLIFT ae 


TRUE 


ela) 


RULE 
ey 


THEN 


ELSE 


RULE 
dE 


THEN 


BLSE 


RULE 
Le 


THEN 


ELSE 


UPDATE AIRLIFT MISSION NUMBER_VALID 


AIRLIFT = N OR 
EXCD = X AND 
FIELD TO UPDATE = AIRLIFT MISSION NUMBER 


UPDATE AIRLIFT VALID = NOT _NEEDED 
DISPLAY “YOU ARE NOT ABLE TO ENTER AIRLIFT MISSION 
NUMBERS FOR {DOCNUM UPDATE} BECAUSE EITHER 
1. YOUR ORGANIZATION DOES NOT DOCUMENT AIRLIFT 
MISSION NUMBERS 
2. THE EXCEPTION CODE IS CURRENTLY X 


PRESS ANY KEY TO CONTINUE~" 
CLS 


GET DOCNUM_UPDATE = DOCNUM, FLIGHT, MISNUM 
RESET MISNUM 

FIND MISNUM 

PUT FLIGHT 

CLOSE FLIGHT 

UPDATE AIRLIFT VALID = TRUE; 


NUMHOIST VALID 


NUMHOIST VALID UNKNOWN AND 


EXCD = X 
NUMHOIST VALID = NOT NEEDED 


WHILETRUE NUMHOIST VALID = UNKNOWN THEN 
RESET TEST NUMHOIST 
FIND TEST NUMHOIST 

END 

NUMHOIST VALID = TRUE; 


UPDATE NUMHOISTS VALID 


EXCD = X AND 
FIELD TO UPDATE = NUMBER OF HOISTS 


UPDATE NUMHOISTS VALID = NOT NEEDED 

DISPLAY "YOU ARE NOT ABLE TO ENTER NUMBER OF HOISTS FOR 
{DOCNUM_UPDATE} BECAUSE THE EXCEPTION CODE IS 
CURRENTLY {EXCD} 


PRESS ANY KEY TO CONTINUE~" 
eis 


GET DOCNUM_ UPDATE = DOCNUM, FLIGHT, NUMHOISTS 
RESET NUMHOISTS 


Jaga 


RULE 


Jide 


THEN 


ELSE 


RULE 
ais 


THEN 


ELSE 


FIND NUMHOISTS 

WHILETRUE UPDATE NUMHOISTS VALID = UNKNOWN THEN 
RESET TEST NUMHOIST 
FIND TEST NUMHOIST 

END 

PUT FLIGHT 

CLOSE FLIGHT 

UPDATE NUMHOISTS VALID = TRUE; 


COLUMN_INTEGRITY NUMHOIST 


NUMHOISES 2— 170K 


NUMHOISTS = UNKNOWN OR 
NUMHOISTS = (BLANK) AND 
NUMHOUSTS <= 2oROR 
NUMHOISTS = UNKNOWN OR 
NUMHOISTS = (BLANK) 


TEST NUMHOIST = YES 
NUMHOIST VALID = TRUE 
UPDATE NUMHOISTS VALID = TRUE 


TEST NUMMO TST SamckS 

DISPLAY “ YOU NEED TO ENTER A NUMBER FROM 1 TO 99, OR? 
FOR NONE." 

RESET NUMHOISTS 

FIND NUMBOISTS; 


UPDATE ENGINE HOURS VALID 


EXCD = X AND 
FIELD TO UPDATE = ENGINE HOURS 


UPDATE ENGINE HOURS VALID = NOT NEEDED 

DISPLAY “ YOU ARE NOT ABLE TO ENTER ENGINE HOURS FOR 
{DOCNUM_ UPDATE} BECAUSE THE EXCEPTION CODE IS 
CURRENTLY {EXCD} 


PRESS ANY KEY TO CCM tivE 
Cis 


UPDATE ENGINE HOURS VALID = NEEDED 

GET DOCNUM UPDATE = DOCNUM, FLIGHT, ALL 

TOTAL = (HRS1 + HRS2 + HRS3) 

CLOSE FLIGHT 

RESET ENGINE NUMBER 

MENU ENGINE NUMBER, DOCNUM UPDATE = DOCNUM, FLTENG, 
ENGNUM 

FIND ENGINE NUMBER 

MRESET ENGINE NUMBER 


ParZ 


= = = = =. A 


CLOSE FLTENG 

GET DOCNUM UPDATE = DOCNUM AND ENGINE NUMBER = ENGNUM, 
FLTENG, ENGHRS 

RESET UPDATE ENGHRS 
FIND UPDATE ENGHRS 
ENGHRS = (UPDATE ENGHRS) 
RESET ENGHRS VALID 
RESET ENGHRS LOOP 

FIND ENGHRS LOOP 

PUT FLTENG 

CLS 

CLOSE FLTENG 
FIELD TO UPDATE = DONE; 


RULE COLUMN INTEGRITY_ENGINE_HOURS 
IF 
ENGHRS > 0 AND 
ENGHRS <= (TOTAL) 
THEN 
TEST ENGHRS = YES 
ENGHRS VALID = TRUE 
ELSE 
TEST ENGHRS = YES 
DISPLAY " YOU MUST ENTER ENGINE HOURS BETWEEN 00.1 AND 
(ATO meat es" 
RESET ENGHRS 
FIND ENGHRS; 


lxkxxzkkxxkkk*k ENTITY CONSTRAINT RULES ***X4xkKKKK 


RULE ENTITY INTEGRITY DOCNUM MISSING 
IF 
DOCNUM_NEW 
DOCNUM_NEW 


UNKNOWN OR 
(BLANK) 


THEN 
! loop to get user to enter a document number 
WHILETRUE DOCNUM NEW = UNKNOWN OR DOCNUM NEW = (BLANK) 
THEN 
DISPLAY ™" YOU WILL NOT BE ABLE TO PROCEED UNLESS 
YOU ENTER A DOCUMENT NUMBER." 
RESET DOCNUM_NEW 
FIND DOCNUM_ NEW 
END 
DOCNUM NOT MISSING = TRUE 
ELSE 
DOCNUM_NOT MISSING 


UE, 


RULE ENTITY INTEGRITY_DOCNUM_ DUPLICATE 
IF 

DOCNUM_NEW <> UNKNOWN OR 

DOCNUM_ NEW <> (BLANK) 


rs 


THEN 
GET DOCNUM NEW = DOCNUM, FLIGHT, DOCNUM 
WHILETRUE DOCNUM = (DOCNUM NEW) THEN 
CLOSE FLIGHT 
DISPLAY " THERE IS ALREADY A DOCUMENT NUMBER 
{DOCNUM NEW} THAT EXISTS WITHIN THE DATABASE." 
RESET DOCNUM_NEW 
!' get another document number 
FIND DOCNUM NEW 
RESET DOCNUM NOT MISSING 
! once again must verify that document number is not a null 
!' value 
FIND DOCNUM NOT MISSING 
GET DOCNUM_NEW = DOCNUM, FLIGHT, DOCNUM 
END 
DOCNUM_ DUPLICATE = FALSE; 


RULE ENTITY INTEGRITY UPDATE _SIDENUM MISSING 
AS. 
FIELD TO UPDATE = SIDE NUMBER AND 
SIDENUM UPDATE = UNKNOWN OR 
SIDENUM_UPDATE = (BLANK) 
THEN 
! loop to get user to enter a aircraft side number 
WHILETRUE SIDENUM UPDATE = UNKNOWN OR SIDENUM UPDATE = 
(BLANK) THEN 
DISPLAY “™ YOU WILL NOT BE ABLE TO PROCEED UNLESS 
YOU ENTER A AIRCRAFT SIDE NUMBER." 
RESET SIDENUM UPDATE 
FIND SIDENUM_ UPDATE 
END 
SIDENUM UPDATE NOT MISSING 
ELSE 
SIDENUM_UPDATE NOT MISSING = TRUE; 


TRUE 


RULE ENTITY CONSTRAINT SIDENUM MISSING 
te WHICHTASK = APPEND RECORD AND 
SIDENUM NEW = UNKNOWN OR 
SIDENUM NEW = (BLANK) 
THEN 
! loop to get user to enter a aircraft side number 
WHILETRUE SIDENUM_NEW = UNKNOWN OR SIDENUM NEW = 
(BLANK) THEN 
DISPLAY “ YOU WILL NOT BE ABLE TO PROCEED UNLESS 
YOU ENTER A AIRCRAFT SIDE NUMBER." 
RESET SIDENUM NEW 
FIND SIDENUM NEW 
END — 
SIDENUM_NOT MISSING = TRUE 
ELSE 


SIDENUM NOT MISSING = TRUE; 
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|xkxkkkkKKKK REFERENTIAL CONSTRAINT RULES ***kkkkkKKX 


RULE REFERENTIAL INTEGRITY _SIDENUM_EXISTS 


IF 
WHICHTASK = APPEND RECORD AND 
SIDENUM NEW <> UNKNOWN OR 
SIDENUM NEW <> (BLANK) 

THEN 


GET SIDENUM_ NEW = SIDE, AIRCRAFT, SIDE 
! loop till side number matches an aircraft in organization 
WHILETRUE SIDE = UNKNOWN THEN 

CLOSE AIRCRAFT 
DISPLAY " NO AIRCRAFT EXISTS IN THE ORGANIZATION 
WITH THE SIDE NUMBER {SIDENUM NEW}." 
RESET SIDENUM NEW 

!' get another side number 
FIND SIDENUM NEW 
RESET SIDENUM NOT MISSING 

' once again must verify that side number is not a null 

!' value 
FIND SIDENUM NOT MISSING 
GET SIDENUM _ NEW = SIDE, AIRCRAFT, SIDE 


END 
SIDENUM EXISTS = TRUE 
SIDENUM = (SIDE); 


RULE REFERENTIAL INTEGRITY UPDATE SIDENUM EXISTS 
Ing 
eee Loewe DATE = SapbE NUMBER AND 
SIDENUM UPDATE <> UNKNOWN OR 
SIDENUM UPDATE <> (BLANK) 
THEN 
GET SIDENUM UPDATE = SIDE, AIRCRAFT, SIDE 
! loop till side number matches an aircraft in organization 
WHILETRUE SIDE = UNKNOWN THEN 
CHOSE AIRCRAET 
DISPLAY ™ NO AIRCRAFT EXISTS IN THE ORGANIZATION 
WITH THE SIDE NUMBER {SIDENUM UPDATE}." 
RESET SIDENUM UPDATE 
!' get another side number 
FIND SIDENUM_ UPDATE 
RESET SIDENUM TUPPATES NOT MiESsiNG 
! once again must verify that side number is not a null 
!' value 
FIND SIDENUM UPDATE NOT MISSING 
GET SIDENUM UPDATE = SIDE, AIRCRAFT, SIDE 


END 
SIDENUM_ UPDATE EXISTS = TRUE 
SIDENUM = (SIDE) 


CLOSE AIRCRAFT; 


eS 


RULE 
Uj 


THEN 


ELSE 


RULE 
IL] 


THEN 


RULE 
Ls 


THEN 


RULE 
2 


THEN 


ENGINE HOURS VALID 


EXCD = X AND 
ENGHRS VALID = UNKNOWN AND 
FIELD TO UPDATE <> ENGINE HOURS 


ENGHRS VALID = NOT NEEDED 
= 0 
ENGINE = (ENGINES - 1) 


WHILETRUE Y <= (ENGINE) THEN 
RESET ENGHRS VALID 
ENGNUM = (Y +1) 

RESET ENGHRS 

FIND ENGHRS 

RESET ENGHRS LOOP 
FIND ENGHRS LOOP 


Y = (Y +5 
APPEND FLTENG 
Cis 


END 
ENGHRS VALID = TRUE; 


ENGINE HOURS LOOP 
ENGHRS LOOP = UNKNOWN 


WHILETRUE ENGHRS VALID = UNKNOWN THEN 
RESET TEST ENGHRS 
FIND TEST ENGHRS 

END 

ENGHRS LOOP = TRUE; 


UPDATE ENGINE HOURS VALID 1 

EXCD = X AND 

UPDATE ENGHRS VALID = UNKNOWN AND 
WHICHTASK = UPDATE RECORD AND 
FIELD TO UPDATE <> ENGINE HOURS 
UPDATE ENGHRS VALID = NOT NEEDED; 
UPDATE ENGINE HOURS VALID 2 

EXCD <> X AND 

UPDATE ENGHRS VALID = UNKNOWN AND 
WHICHTASK = UPDATE RECORD AND 
FIELD TO UPDATE <> ENGINE HOURS 
Y = 0 

ENGINE = (ENGINES - 1) 


ILLES 


WHILETRUE Y <= (ENGINE) THEN 
RESET ENGHRS VALID 
ENGNUM = (Y + 1) 

RESET ENGHRS 
FIND ENGHRS 
RESET ENGHRS LOOP 
FIND ENGHRS LOOP 


ye=ny + 1s) 
APPEND FLTENG 
Cis 


END 
UPDATE ENGHRS VALID = TRUE; 


RULE UPDATE ENGINE HOURS LOOP 
IF 
UPDATE ENGHRS LOOP = UNKNOWN 
THEN 
WHILETRUE UPDATE ENGHRS VALID = UNKNOWN THEN 
RESET TEST ENGHRS 
FIND TEST ENGHRS 
END 
UPDATE ENGHRS LOOP = TRUE; 


[xkkkkkkkKKK USER DEFINED CONSTRAINT RULES ****k kkk kw 


RULE MISSION POSITION 12A 


IF 

MSN1_1 = 1 AND 

EXCD <> X AND 

MSN12_ VALID = UNKNOWN 
THEN 


WHILETRUE MSN12_ VALID = UNKNOWN THEN 
RESET CK MSN12A 
FIND CK _MSN12A 
RESET REPEAT REQUEST2A 
FIND REPEAT REQUEST2A 
END 
MSN12 VALID = TRUE; 


RULE USER_DEFINED MISSION12A CODE 


IF 
MSN1_2 = A OR 
MSN1_2 = B OR 
MSN1_2 = C OR 
MSN1_ 2 = D OR 
MSN1_2 = E OR 
MSN1_ 2 = F OR 
MSN1_ 2 = G OR 
MSN1_ 2 = H OR 
MSN1_ 2 = I OR 
MSN1_2 = N OR 


aly, 


MSN1 2 = 0 OR 
MSN1 2 = P OR 
MSN1 2 = R AND 
MSN1_1 = 1 AND 
EXCD= <> x 


THEN 
CK MSN12A = YES 
MSN12_ VALID = TRUE; 


RULE USER DEFINED MISSION12AA CODE 


EE: 
MSN1_ 2 <> A OR 
MSN1 227 2b OR 
MSN1 2 20k. 
MSN1_ 2 <> D OR 
MSN1 2 <> E OR 
MSNI MZ fOr 
MSN1 25 => 4GaoR 
MSNI Za 1 OR 
MSN1 Zee 2 OR 
MSN1 2 <> N OR 
MSN1 2 <> O OR 
MSNIOZ <> JE ok 
MSN1_ 2 <> R AND 
MSN1_ 1 = 1 AND 
EXC © <7 as 

THEN 


CK_MSN12A = YES; 


RULE REPEAT REQUEST 12A 
IF 
MSN12 VALID <> UNKNOWN 
THEN 
REPEAT REQUEST2A = NO 
ELSE 
CK_MSN12A = YES 
REPEAT REQUEST2A 
GIES 
DISPLAY " POSITION 2 MUST BE R, A-I, OR N-P. 
PRESS ENTER TO CONTINUE. ~" 


YES 


CES 
RESET MSN1 2 


FIND MSN1_2; 


RULE MISSTON POSE Erp ez 


IF 

MSN1_1 = 2 AND 

EXCD <> X AND 

MSN12_ VALID = UNKNOWN 
THEN 


WHILETRUE MSN12 VALID = UNKNOWN THEN 


TS 


RULE 
iE 


THEN 


RULE 
re 


THEN 


RULE 


ing 


THEN 


ELSE 


RESET CK _MSN12B 
FIND CK MSN12B 
RESET REPEAT REQUEST2B 
FIND REPEAT REQUEST2B 
END 
MSN12_ VALID = TRUE; 


USER DEFINED MISSION12B CODE 


MSN1_2 = J OR 
MSN1_2 = K OR 
MSN1_2 = L OR 
MSN1_2 = MOR 
MSN1_2 = N OR 
MSN1_2 = 0 OR 
MSN1_2 = P OR 
MSN1_2 = Q OR 
MSN1_2 = R AND 
MSN1_1 = 2 AND 
EXGDmcsx 


CK MSN12B = YES 
MSN12 VALID = TRUE; 


USER_DEFINED_MISSION12BB_CODE 


MSN1 2 <> J OR 
MSNI 2 <> K OR 
MSN1 2 <> L OR 
MSN1 2 <> M OR 
Melt 2° <> N OR 
MSN1_ 2 <> O OR 
Meh 2 <> P OR 
MSN1_ 2 <> Q OR 
MSN1_ 2 <> R AND 
MSN1 1 = 2 AND 
EXCD <> X 


CK MSN12B = YES; 
REPEAT REQUEST 12B 
MSN12 VALID <> UNKNOWN 


REPEAT REQUEST2B = NO 


REPEAT REQUEST2B = YES 
CLS 
DISPLAY " POSITION 2 MUST BE IN THE RANGE OF J-R. 


PRESS ENTER TO CONTINUE. ~" 
CLS 


ha} 


RESET MSN1_ 2 
FIND MSN1_ 2; 


RULE MISSION POSITION 12C 


IF 

MSN1_1 >= 3 AND 

EXCD <> X AND 

MSN12_ VALID = UNKNOWN 
THEN 


WHILETRUE MSN12_ VALID = UNKNOWN THEN 
RESET CK MSN12C 
FIND CK _MSN12C 
RESET REPEAT REQUEST2C 
FIND REPEAT REQUEST2C 
END 
MSN12 VALID = TRUE; 


RULE USER_DEFINED MISSION12C_CODE 


IF 
MSN1_ 2 = N OR 
MSN1_2 = O OR 
MSN1_2 = S OR 
MSN1_2 = T OR 
MSN1_2 = U OR 
MSN1_2 = V OR 
MSN1_2 = W OR 
MSN1 2 = X OR 
MSN1_2 = Y OR 
MSN1_2 = Z AND 
MSN1_1 >= 3 AND 
RCD) KS 

THEN 


CK_MSN12C = YES 
MSN12 VALID = TRUE; 


RULE USER_DEFINED MISSION12CC CODE 


1 
MSN N LOR 
MSN1 2 <> 0 OR 
MSNISZ ><> SOE 
MSN IZ <a 
MON Ieee OR 
MSNE Zs Vor 
MSN1 2 <>) WOR 
MSN1_ 2 <> X OR 
MSNI 2 <2 Yor. 
MSN1 2 <> Z AND 
MSN1 1 >= 3 AND 
EXCD <5 

THEN 


CK MSN12C = YES; 
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RULE REPEAT REQUEST 12C 


re 


THEN 


ELSE 


RULE 
UGE 


THEN 


RULE 
1g 


THEN 


RULE 
iO 


THEN 


RULE 
LE 


THEN 


MSN12 VALID <> UNKNOWN 


NO 


REPEAT REQUEST2C 


YES 


REPEAT REQUEST2C 
Cains: 


PESPLAY “ POS@#IION=2 MUST BEN, O, 


OR OZ... 


peeoo ENInR TO CONTINUE. ~* 


ems 
RESET MSN1_ 2 
FIND MSN1_2; 


MISSION POSITION 12D 


EXCD = X AND 
MSN12 VALID = UNKNOWN 


WHILETRUE MSN12 VALID = 


RESET CK MSN12D 
FIND CK_MSN12D 


RESET REPEAT REQUEST2D 
FIND REPEAT REQUEST2D 


END 
MSN12_ VALID = TRUE; 


USER DEFINED MISSION12D CODE 


MSN1_ 2 = N OR 
MSN1_2 = O AND 
Bern x 


CK MSN12D = YES 
MSN12 VALID = TRUE; 


TEST MISSION12DD CODE VALID 


MSN1 2 <> N AND 
EXCDE— x 


CK _MSN12D = YES; 


TEST MISSION12DDD CODE VALID 


MSN1_2 <> O AND 
EXCD = X 


CK MSN12D = YES; 


RULE REPEAT REQUEST 12D 


1 Zaaal 


UNKNOWN THEN 


ie 


THEN 


ELSE 


RULE 
109 


THEN 


RULE 
ce 


THEN 


RULE 


MSN12 VALID <> UNKNOWN 


REPEAT REQUEST2D = NO 

REPEAT REQUEST2D 

CLS 

DISPLAY " POSITION 2 MUST BE N, OR O. 
PRESS ENTER TO CONTINUE. ~" 


Yo 


isis 
RESET MSN1_ 2 
FIND MSN1_ 2; 


MISSION POSITION 22A 


MSN2 1 = 1 AND 
MSN22 VALID = UNKNOWN 


WHILETRUE MSN22 VALID = UNKNOWN THEN 
RESET CK MSN22A 
FIND CK_MSN22A 
RESET REPEAT REQUEST2A 
FIND REPEAT REQUEST2A 
END 
MSN22 VALID = TRUE; 


USER_DEFINED MISSION22A CODE 


MSN2_2 = A OR 
MSN2 2 = B OR 
MSNZ 22 3-2 e 7Or 
MSN2 2 = D OR 
MON Za Zee ee Ole 
MSN2 2 = F OR 
MSN2_ 2 = G OR 
MSN2 2 = H OR 
MSN2 2 = I OR 
MSN2 2 = N OR 
MSN2 2 = 0 OR 
MSN2Z2 2 = P OR 
MSN2_2 = R AND 
MSN2_ 1 = 1 AND 
EXCGD <> 5 


CK MSN22A = YES 
MSN22 VALID = TRUE; 


USER_DEFINED MISSION22AA_ CODE 
MSNZe2 6 <> AMO. 
MSN2 2 <> B OR 


ZZ 


MSN2_ 2 <> C OR 
MSN2_ 2 <> D OR 
MSN2_ 2 <> E OR 
Mei Za Zueeer OR 
MoNze2 —- 9G OK 
MSN2 2 <> H OR 
MSN2 2 <> I OR 
MSN2_ 2 <> N OR 
BiohZ 2 <> 70O00R 
MSN2_ 2 <> P OR 
MSN2 2 <> Q AND 
MSN2_1 = 1 AND 
PAcl <2 4 


THEN 
CK MSN22A = YES; 


RULE REPEAT REQUEST 2A 


IF 

MSN22 VALID <> UNKNOWN 
THEN 

REPEAT REQUEST22A = NO 
ELSE 

CK MSN22A = YES 

REPEAT REQUEST22A = YES 


eis 

DISPLAY " POSITION 2 MUST BE R, A-I, OR N-P. 
PRESS ENTER TO CONTINUE. ~" 

ens 

RESET MSN2_ 2 

FIND MSN2_2; 


BU MISSION POSITION 22B 


IF 

MSN2_1 = 2 AND 

CDE x AND 

MSN22_ VALID = UNKNOWN 
THEN 


WHILETRUE MSN22 VALID = UNKNOWN THEN 
RESET CK MSN22B 
FIND CK MSN22B 
RESET REPEAT REQUEST22B 
FIND REPEAT REQUEST22B 
END 
MSN22_ VALID = TRUE; 


RULE USER_DEFINED MISSION22B CODE 


IF 
MSN2 2 = J OR 
MSN2_2 = K OR 
MSN2_2 = L OR 
MSN2_2 = M OR 


is 


MSN2_2 = N OR 
MSN2_2 = 0 OR 
MSN2_2 = P OR 
MSN2_ 2 = Q OR 
MSN2_2 = R AND 
MSN2_1 = 2 AND 
EXGDr <> =x 


THEN 
CK _MSN22B = YES 
MSN22 VALID = TRUE; 


RULE USER DEFINED MISSION22BB_ CODE 


Le 
MSNZE 25 sO 
MSN2Z02 ><> eek 
MSNZ 2 <2 Ler 
MSN2_ 2 <> M OR 
MSNZe 2 lore 
MSN2Z 2 <2 302cR 
MSN2 23 P ek 
MSN2 2 =O Tek 
MSN2_2 <> R AND 
MSN2_1 = 2 AND 
EXC Dx 

THEN 


CK MSN22B = YES; 


RULE REPEAT REQUEST 22B 


IF 

MSN22 VALID <> UNKNOWN 
THEN 

REPEAT REQUEST22B = NO 
ELSE 

REPEAT REQUEST22B = YES 


Gls 

DISPLAY “ POSITION 2 MUST BE IN THE RANGE OF J-R. 
PRESS ENTER TO CONTINUE. ~" 

OILS 

RESET MSN2 2 

FIND MSN2 2; 


RULE MiSSiTON POstTIOn 22¢ 


IF 
MSN2_1 >= 3 AND 
EXCDE<> =X AND 
MSN22 VALID = UNKNOWN 
THEN 


WHILETRUE MSN22 VALID = UNKNOWN THEN 
RESET CK MSN22C 
FIND CK MSN22C 
RESET REPEAT REQUEST22C 
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FIND REPEAT REQUEST22C 
END 
MSN22 VALID = TRUE; 


RULE USER_DEFINED_ MISSION22C_CODE 


IF 
MSN2_2 = N OR 
MSN2_2 = O OR 
MSN2_2 = S OR 
MSN2_2 = T OR 
MSN2_2 = U OR 
MSN2_2 = V OR 
MSN2_2 = WOR 
MSN2_2 = X OR 
MSN2_2 = Y OR 
MSN2_2 = Z AND 
MSN2_1 >= 3 AND 
EXCD <> X 

THEN 


CK MSN22C = YES 
MSN22 VALID = TRUE; 


RULE USER DEFINED MISSION22CC_CODE 


TE 
MSN2_ 2 <> N OR 
MSNZ2 2 <> O OR 
MSNZe23 <5 OR 
MSNZ 2 <2 OR 
MSN2 2322 3U OF 
MSN2 2 <> V OR 
MSN2_ 2 <> W OR 
MoNZe2e<2 XxX OR 
MSN 2a <> Y (OR 
MSN2 2 <> Z AND 
MSN2_1 >= 3 AND 
EXCD <> X 

THEN 


CK MSN22C = YES; 


RULE REPEAT REQUEST 22C 


IF 

MSN22 VALID <> UNKNOWN 
THEN - 

REPEAT REQUEST22C = NO 
ELSE 

REPEAT REQUEST22C = YES 


CLS 

DISPLAY " POSITION 2 MUST BE N, O, OR S-Z. 
PRESS ENTER TO CONTINUE. ~" 

Sis 

RESET MSN2 2 


25 


FIND MSN2 2; 


RULE MISSION POSITION 32A 


les 


THEN 


MSN3 


a 


1 AND 


MSN32 VALID = UNKNOWN 


WHILETRUE MSN32_ VALID = 


END 


RES 
FIN 


ET CK MSN32A 
D CK_MSN32A 


UNKNOWN THEN 


RESET REPEAT REQUEST32A 
FIND REPEAT REQUEST32A 


MSN32 VALID = TRUE; 


RULE USER_DEFINED MISSION32A_CODE 


lies 


THEN 


RULE 
EE: 


MSN3_2 
MSN3_ 2 
MSN3_2 
MSN3_2 
MSN3_ 2 
MSN3_2 
MSN3 2 
MSN3_2 
MSN3 2 
MSN3_2 
MSN3_2 
MSN3 2 
MSN3 2 
MSN3_1 
EXCD < 


PAUVOAZHTOANMOCOW LP 
O 
ve) 


> x 


OR 
OR 
OR 


CK MSN32A = YES 
MSN32_ VALID = TRUE; 


USER_DEFINED MISSION32AA_CODE 


MSN3_ 2 
MSN3_2 
MSN3_2 
MSN3_ 2 
MSN3_ 2 
MSN3_2 
MSN3_2 
MSN3_ 2 
MSN3_2 
MSN3_2 
MSN3_ 2 
MSN3_2 
MSN3_2 


<> 
<> 
<> 
<> 
— 
<2 
<2 
<> 
<> 
<> 
<< 
<> 
<> 


A OR 


ie, Ft eG) 2) Oe) 
O 
v9) 


2x6 


= ——E—er i <a a 


MSN3_1 = 1 AND 
EXCD <> X 

THEN 
CK _MSN32A = YES; 


RULE REPEAT REQUEST 3A 


IF 

MSN32 VALID <> UNKNOWN 
THEN 

REPEAT REQUEST32A = NO 
ELSE 

CK MSN32A = YES 

REPEAT REQUEST32A = YES 


ems 

DISPLAY " POSITION 2 MUST BE R, A-I, OR N-P. 
PRESS ENTER TO CONTINUE. ~" 

eins 

RESET MSN3 2 

FIND MSN3 2; 


mein MISSION POSITION 3 


IF 

MSN3_1 = 2 AND 

EXCD <> X AND 

MSN32_ VALID = UNKNOWN 
THEN 


WHILETRUE MSN32_ VALID = UNKNOWN THEN 
RESET CK MSN32B 
FIND CK MSN32B 
RESET REPEAT REQUEST32B 
FIND REPEAT REQUEST32B 
END 
MSN32_ VALID = TRUE; 


RULE USER_DEFINED MISSION32B CODE 


IF 
MSN3_ 2 = J OR 
MSN3_2 = K OR 
MSN3_2 = L OR 
MSN3_2 = M OR 
MSN3_2 = N OR 
MSN3_2 = O OR 
MSN3_2 = P OR 
MSN3_2 = Q OR 
MSN3_ 2 = R AND 
MSN3_1 = 2 AND 
EXCD <> X 

THEN 


CK MSN32B = YES 
MSN32_VALID = TRUE; 


eZ] 


RULE USER_DEFINED MISSION32BB_ CODE 


Ie 
MSNee 2 ¥<2u OR 
MSN3~ 2 <> Keer 
MONS 2 <> bee: 
MSN3_2 <> M OR 
MSN3_2 <> N OR 
MSNG. 25-20 Or, 
MSN3 02 ek 
MSN3 27250 05 
MSN3 2 <> R AND 
MSN3_1 = 2 AND 
EACD i x 

THEN 


CK MSN32B = YES; 


RULE REPEAT REQUEST 32B 


IF 

MSN32 VALID <> UNKNOWN 
THEN 7 

REPEAT REQUEST32B = NO 
ELSE 

REPEAT REQUEST32B = YES 


Cis 

DISPLAY “™ POSITION 2 MUST BE IN THE RANGE Ob @J-re 
PRESS ENTER TO CONTINUE 

CLS 

RESET MSN3_ 2 

FIND MSN3 2; 


RULE MESSTONE POS Eres Ze 


IF 

MSN3_1 >= 3 AND 

EXCD <> X AND 

MSN32 VALID = UNKNOWN 
THEN 


WHILETRUE MSN32 VALID = UNKNOWN THEN 
RESET CK MSN32C 
FIND CK MSN32C 
RESET REPEAT REQUEST32C 
FIND REPEAT REQUEST32C 
END 
MSN32_ VALID = TRUE; 


RULE USER_DEFINED MISSION32C_CODE 


IF 
MSN3_ 2 = N OR 
MSN3_ 2 = O OR 
MSN3 2 = S OR 
MSN3_2 = T OR 
MSN3_2 = U OR 


Ia is 


MSN3 2 = V OR 

MSN3_ 2 = W OR 

MSN3_2 = X OR 

MSNB 2 = Y OR 

MSN3_ 2 = Z AND 

MSN3_1 >= 3 AND 

EXCD <> X 
THEN 

CK MSN32C = YES 

MSN32 VALID = TRUE; 
RULE USER_DEFINED_MISSION32CC_CODE 
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MSNeaz <> NFOR 

Monee 2 <> OOK 

Mohs o2uceS OR 

MSNS) 2 <> T OR 

MSN3_2 <> U OR 

MSNS2 i<> V 7OR 

MONS 2 => W OR 

NMSNSo2 xX OR 

MSN3_ 2 <> Y OR 

MSN3 2 <> Z AND 

MSN3_1 >= 3 AND 

Ee Daa > x 
THEN 

CK MSN32C = YES; 
RULE REPEAT REQUEST 32C 
aE 

MSN32 VALID <> UNKNOWN 
THEN 

REPEAT REQUEST32C = NO 
ELSE 

REPEAT REQUEST32C = YES 


CEs 


Digse LAYS” =POSITTION Z2 MUST BEN, 


CLS 


O, 
PRESS ENTER TO CONTINUE. 


OR o=Ze 


wt 


RESET MSN3_ 2 
FIND MSN3 2; 


ASK WHICHTASK: "CHOOSE A TASK TO PERFORM ON THE DATABASE."; 
CHOICES WHICHTASK: APPEND RECORD, UPDATE RECORD, 

DELETE RECORD, DISPLAY RECORD, EXIT; 

ASK DOCNUM NEW: " ENTER THE NEW DOCUMENT NUMBER."; 

ASK SIDENUM NEW: " PLEASE INDICATE THE SIDE NUMBER OF THE 
AIRCRAFT."; 


ASK SIDENUM UPDATE: " PLEASE INDICATE THE NEW SIDE NUMBER."; 
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ASK EXCD: " ENTER AN EXCEPTION CODE OR <SPACE> FOR NONE."; 


ASK MSN1_1: “ ENTER A MISSION 1 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY."; 
ASK MSN1_ 2: " ENTER A MISSION 1 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN1_1} ENTER SECOND 
POSITION"; 

ASK MSN1_ 3: " ENTER A MISSION 1 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN1_1}{MSN1_2} ENTER THIRD 
POSITION"; 

ASK HRS1: “ ENTER THE HOURS FLOWN ON MISSION 1."; 

ASK MSN2_1: " ENTER A MISSION 2 CODE, HIT ENTER AFTER BACH 
POSITION ENTRY"; 

ASK MSN2_2: " ENTER A MISSION 2 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN2_1} ENTER SECOND 
POSITION"; 

ASK MSN2 3: " ENTER A MISSION 2 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN2_1}{MSN2_2} ENTER THIRD 
POSITION"; 

ASK HRS2: " ENTER THE HOURS FLOWN ON MISSION 2."; 

ASK MSN3_1: " ENTER A MISSION 3 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN3_1}{MSN3_ 2} {MSN3_3}"; 

ASK MSN3_2: " ENTER A MISSION 3 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN3_1} ENTER SECOND 
POSITION"; 

ASK MSN3_3: " ENTER A MISSION 3 CODE, HIT ENTER AFTER EACH 
POSITION ENTRY {MSN3_1}{MSN3_2} ENTER THIRD 
POSITION"; 

ASK HRS3: " ENTER THE HOURS FLOWN ON MISSION 3."; 

ASK TOTFLT: " ENTER THE TOTAL NUMBER OF FLIGHTS."; 

ASK OPS: “ ENTER THE SHIP/FIELD OPERATIONS CODE."; 

ASK CJ: " ENTER THE NUMBER OF CATAPULT SHOTS OR JATO 
LAUNCHES ."; 

ASK NUMHOISTS: " ENTER THE NUMBER OF AIRCRAFT HOISTS."; 

ASK ENGHRS: " ENTER HOURS FOR ENGINE {ENGNUM}."; 

ASK UPDATE ENGHRS: " ENTER HOURS FOR ENGINE 

{ENGINE NUMBER} ."; 

ASK DOCNUM VIEW: " WHICH NAVAL AIRCRAFT FLIGHT RECORD DO YOU 
WANT TO VIEW."; 

ASK DOCNUM DELETE: " WHICH NAVAL AIRCRAFT FLIGHT RECORD DO 
YOU WANT TO DELETE."; 

ASK DOCNUM UPDATE: " WHICH NAVAL AIRCRAFT FLIGHT RECORD DO 
YOU WANT TO UPDATE."; 

ASK FIELD_TO_UPDATE: " SELECT WHICH FIELD YOU WANT TO 
UPDATE. 


CHO ECKS FIELD TO UPDATE: DOCUMENT NUMBER, SIDE NUMBER, 
BACEE Lion SCObE? MISSION _ CODE 1, MISSTONSTSHCURS: 

MISSION _CODE_ 2, MISSION _ Z “HOURS, MISSION _ CODE _ 3, 

MISSION 3 “HOURS, TOTAL _ FLIGHTS, SHIP FIELD ~ OPERATIONS _CODE, 
CATAPULT | JATO LAUNCHES, AIRLIFT _ MISSION _ NUMBER, 

NUMBER _OF HOTS ES ENGINE HOURS, ~ DONE; 

ASK EXCD NEW: " ENTER AN EXCEPTION CODE OR <SPACE> FOR 


IL SiS: 


NONE . "> 


ASK ENGINE NUMBER: " CHOOSE THE ENGINE NUMBER THAT YOU WANT 
TO CHANGE THE HOURS FLOWN."; 
ASK CONTINUE: " THIS ACTION WILL DELETE THE WHOLE FLIGHT 


RECORD! DO YOU WANT TO CONTINUE?"; 
SaOLCho CONTINUE: YES, NO; 


Leal 
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